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IMlB.QUUCT_ION TO THE UNIX QPERQTIN& SYSTEM 



This manual contains the entire set of documents describing the uNIX 
operating system. This particular version is the fourth in a series of 
UNIX look-alike systems built during the last five years. It is 
intended for a single user and does, not support any multi -tasking or 
multi-user features. It is simple to mount and use on Z-SO systems 
having 64 Kbytes of RAM and an 8086 version will be available shortly. 
The operating system can access different types of storage without 
modification. 

It supports a hierarchial file system complete with pathnames and 
subdirectories. Files are placed in the filesystem using dynamic 
allocation, can be protected and can reach a maximal length of 8 
Mbytes. Files can be declared to be physical device drivers allowing 
uniform treatment of both disk files and real devices such as printers 
and modems. The operating system supplies several subroutines for 
reading and writing bytes or blocks of bytes to or from files. In 
doing so, no constraints are made on the data allowing arbitrary 
binary patterns on all 8 bits. It allows simultaneous read' and write 
access of the same file and permits up to eight files to be open 
simultaneously. Entry points for moving the file pointers are provided 
for allowing random access of any byte within any file. Volumes of the 
filesystem can be mounted and removed at will allowing the user to 
access volumes as subdirectories. 

There is a shell programming language which allows the passing of 
arguments to commands as well as re-direction of the standard I/O 
channel. Pseudo pipes are provided to pass I/O between commands 
without user intervention. The shell allows multiple commands on a 
single line and is easily made to read files containing command lines, 
ouch tiles can be declared executable which will cause the operating 
system to interpret their content as commands whenever the file name 
is entered as a command. This allows the user to quickly make new 
commands which themselves are built from other commands. 

The operating system also includes entry points for printing and 
reading numbers or strings. It allows tab stops to be set and provides 
a string reading routine which recognises character and line delete. 
It also includes a string comparator which matches two text lines. 

There are numerous commands mounted under the operating system for 
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creating, manipulating and removing -files or directories. Also mounted 
are code generation systems -for both the Z-SO and 9036 processors. 
These each include a C compiler, an assembler producing relocatable 
code and a link editor for combining modules which were generated 
separately. A screen oriented text editor as well as a text processor 
are included for building programs and doing word processing. 

\ 
Thus,, the ulMIX operating system provides all necessary tools -for 
generating quality software. It has been subjected to intense use on 
several machines for nearly two years. Several applications have been 
developed using it including a bit-slice machine programmed entirely 
in microcode designed on this system. The 8086 software generation 
system mentioned earlier was developed in its entirety using this 
operating system on a Z-SO. 
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This note describes a procedure for mounting the uNIX operating svstem 
on your computer hardware. It is expected that the system consists of 
a Z-So processor and 64 Kbytes of RAM. While it is possible to run the 
system with less RAM, it is not recommended. To determine whether your 
available RAM is adequate, a memory map is attached which shows the 
purposes for which various blocks of memory is used. 

It is necessary for you to develop disk driver routines which are 
compatible with an 8 inch disk using single density sectors having 256 
bytes per sector and 15 sectors per track. This is usually a simple 
modification of routines which already exist within your system. 
Generally, the only modification required is the number of bvtes read 
from the disk controller chip, usually a 1771 or 1791. 

Once this is done, you should load the uNIX module from the system 
disk. The module is located on 64 consecutive sectors starting with 
track 0, sector 4. This amounts to exactly 16 kbytes. To check your 
loading procedure, a hexadecimal dump of the first of these sectors is 
attached. 

Next, you should construct the "bios" (Basic I/O Software) for your 
hardware. To assist you in this task, a sample bios is also attached. 
Notice that only five routines are required. Two of these are the 
console input and output routines. It is recommended that the general 
structure of the con in and conout routines in the sample bios be 
preserved. Simple modifications of these will enable you to use 
different ports or to call subrouti-nes for the console I/O such as 
would be required for a video RAM. Notice that there are sections 
which check for certain control characters <cntl-q, cntl-s, cntl-x) 
for restarting the operating system. It is important that these 
sections remain as they are. 

The remaining routines are for interfacing the disks in your system. 
There are three such routines which read sectors, write sectors and 
format the disk. Two parameters are passed to the disk drivers by the 
operating system. The first of these is the memory address where the 
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256 byte memory block is located which is to be read or written. The 
second is an integer between and 32767 which is re-f erred to as an 
mode. The address is passed to the routines in the HL register. The 
mode is the second value on the stack, the first being "the return 
address which must be preserved. This inode integer must be decomposed 
into the disk, track and sector which you wish it to reference. 
Normally, the value is decomposed as shown below: 

disk id = high_byte(inode/15> ; 
track id = low_byte (inode/ 15) ; 
sector id = 1+remainder (inode/15) i 



Before you panic and begin writing a divide and remainder program, let 
me inform you that the operating system includes one! The sample bios 
shows a simple program which unravels the stack to get the address and 
mode and goes on to convert it into disk/track/sector. If the disk 
system you are using supports something other than 15 sectors per 
track, it is only necessary to modify the parameter "15" before 
calling the divide/remainder routine. 

The third disk driver is a formatter which should re-write the disk 
drive named in the L register on entry. To obtain the greatest 
performance speed from the operating system, the sequence of sector 
numbers given in the sample bios should normally be used. If an 
intelligent disk controller is used, the sequence given may need to be 
modified. The scheme here is to interleave the sectors on the disk so 
that the "read" subroutine (see the subroutine manual) wastes the 
least amount of time possible between sector transfers. This is 
determined by experiment! y loading a large file into memory and timing 
the load interval. Then, change the interleave sequence and repeat the 
experiment. Continue until the load time appears optimized. In any 
event, the formatter is not needed when the system is first brought up 
and in no event is the sequence given a requirement to make the system 
operational. Any interleave sequence can be used initially and 
optimisation should wait until the operating system is functional. 

One final note on the disk driver routines. Each routine should detect 
errors in accessing the disk drives and should make several attempts 
to accomplish the transfer. If the routine fails to make the required 
transfer, do not simply return to the operating system. Instead, print 
the command, disk drive, track, sector and memory address and jump to 
the warm start entry point (0C003H) . This will allow the operating 
system to recover gracefully. If desired, the programs could simply 
hang in an infinite loop after an error. Then, the operator could 
remove the disk and reset the system manually. Either is acceptable. 



After the five routines are built for location 0C057H and the 64 
sectors of the operating system have been sucessfully loaded, you 
should simply merge the two by first loading the operating system at 
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5* A SKEL.fc.TAL BIOS FOR uNIX * 

5 * * 

; *************** w*#*##*^****#*#**#**.^**^^^^.^* # . s ^ # * ## .«^..^^ 



.» THE FOLLOWING EQUATES ARE FOR AN 8251 AT I/O 

[ PORT 0. THE MASK WORDS ARE USED TO DETERMINE 

V THE STATE OF THE UART USING THE STATUS PORT. 

DATA EQU ; I/O PORT FOR UART DATA 

STATUS EQU 1 ; I/O PORT FOR UART STATUS 

I MASK EQU 02H ; DATA AVAILABLE MASK FOR INPUT 

OMASK EQU 01 H 5 BUFFER EMPTY MASK FOR OUTPUT 



THE JUMP TABLE WHICH FOLLOWS MUST BE PLACED 
AT LOCATION 0C057H IN THE OPERATING SYSTEM. 
THE ENTIRE BIOS PACKAGE MUST FIT IN THE BLOCK 
OF MEMORY FROM 0C057H TO 0C51AH. THESE FIVE 
ROUTINES ARE ALL THAT IS REQUIRED FOR THE USER 
TO INTERFACE THE OPERATING SYSTEM. 
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ORG 0C057H 

J MP CON IN 
JMP CONOUT 
J MP LOAD 
JMP SAVE 
JMP FORMAT 

CONSOLE INPUT I NG ROUTINE 

USED TO READ CHARACTERS FROM THE CONSOLE 
DEVICE AND RETURN THEM TO THE OPERATING SYSTEM. 
IT CHECKS FOR SEVERAL SPECIAL CHARACTERS WHICH 
CAN BE TYPED BY THE USER FOR RESTARTING THE 
OPERATING SYSTEM. THESE ARE: 

CNTL-X (18H) COLD START (OCOOOH) 

CNTL-Q (UH) WARM START (0C003H) 

NULL (OOH) END OF FILE, TRANSLATE TO SOOOH 

CIMTL-S (13H) IGNORE 

LINEFEED (OAH) TRANSLATE TO CARRIAGE RETURN (ODH) 

"ATUS ; CHECK FOR DATA AVAILABLE 

5 USING THE MASK 

5 WAIT UNTIL A CHARACTER ARRIVES 

; GET IT 
MASK PARITY 

PUT IT IN THE L REGISTER 
CLEAR THE H REGISTER 
TEST FOR LINEFEED 

; IF SO, TRANSLATE TO CAR. RET. 
TEST FOR END OF FILE 

; IF SO, TRANSLATE TO 3000H 
TEST FOR CNTL-S 

; IF SO, IGNORE 



CON IN: 


IN ST 


AN I 


I MASK 


JZ 


CONIN 


IN 


DATA 


AN I 


7FH ; 


MOV 


L,A ; 


MV I 


H,0 ; 


CPI 


OAH J 


JZ 


NLINE 


CPI 


OOH ; 


JZ 


EOFILE 


CPI 


13H ; 


JZ 


CONIN 



JZ OCOO'iH i IF bO, WARM , : 3 [,-k : 

CF'I 18H 5 TEST FDR CNTL-X 

JZ OCOOOH ; IF SO, COLD START 

RET ; NOTHING SPECIAL, QUIT 
' 1 1Mb: MVI L,ODH 5 FORCE VALUE TO CAR. RET. 

RET ; QUIT 
EOFILE: MVI H,SOH ! FORCE VALUE TO 8000H (EOF) 

RET ; QUIT 

CONSOLE OUTPUTING ROUTINE 

} 

5 THIS ROUTINE TRANSMITS A CHARACTER TO THE CONSOLE 
; WHEN CALLED BY THE OPERATING SYSTEM. IT IS REQUIRED 
S TO TRANSLATE CARRIAGE RETURN (ODH) INTO BOTH CARRIAGE 
5 RETURN AND LINEFEED (OAH) . IF A CARRIAGE RETURN IS 
; TO BE SENT, IT CHECKS TO SEE IF ANY SPECIAL CHARACTERS 
| HAVE BEEN SENT BY CALLING THE CHKIO PROGRAM. 
\ 
CONOUT: MOV A,L 5 CHAR TO TYPE IN L ON ENTRY 

CPI ODH ; TEST FOR CAR. RET. 

JNZ CONX ; IF NOT, JUST SEND THE CHAR 

CALL CHKIO ? TEST FOR RESTARTS OF THE OP. SYS. 

MVI L,OAH ? SET UP FOR LINE FEED 

CALL CONX ; SEND IT 

MVI L,ODH ; SET UP FOR CAR. RET. AND SEND IT 

5 

CONX: IN STATUS ; TEST THE UART FOR 
AN I OMASK 5 TRANSMIT BUFFER EMPTY 
JZ CONX ; WAIT UNTIL NOT BUSY 
MOV A,L 5 GET THE CHAR TO SEND FROM L 
OUT DATA ; SEND IT 
RET ; QUIT 

CHKIO TESTS THE RESTART STATUS OF THE OP. SYS. 

THERE IS A VARIABLE AT LOCATION 9FD6H WHICH 
DETERMINES IF RESTARTS ARE ALLOWED OR NOT. 
IF THE VARIABLE IS 0, THEY SHOULD BE ALLOWED. 
THIS ROUTINE CHECKS TO SEE IF THE VARIABLE 
IS IN A STATE ALLOWING COLD OR WARM STARTS TO 
BE MADE. IF ENABLED, IT THEN TESTS TO SEE IF 
THE CONSOLE HAS TYPED A CNTL-X (COLD START) , 
OR A CNTL-Q (WARM START). IT ALSO CHECKS FOR 
CNTL-S WHICH IS USED TO TEMPORARILY STOP OUTPUT 
AT THE CONSOLE. 
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CHKIO: LDA 9FD6H 5 THIS VARIABLE SHOULD BE TESTED 

ORA A ; FOR ANY NON-ZERO VALUE 

RNZ ; IF NON-ZERO, QUIT 

IN STATUS ; OTHERWISE, CHECK FOR DATA AVAILABLE 
, AN I I MASK ; IN THE UART INPUT SIDE 
\ RZ ; IF NONE, QUIT 

IN DATA ; ELSE, READ THE DATA 

AN I 7FH ; MASK PARITY 

CPI HH 5 TEST FOR CNTL-Q 

JZ OC003H ; IF SO, WARM START 

CPI 1SH 3 TEST FOR CNTL-X 

JZ OCOOOH ; IF SO, COLD START 

CPI 13H ; TEST FOR CNTL-S 
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■31 HOLD ; i U- 30,. Hl;LD ,-L!.. aOTF'H 
RET ; NOTHING, SO QUIT 
HOLD: IN STATUS ; TEST FOR A CHARACTER 
AN I I MASK ; IN THE UART 
JZ HOLD ; WAIT UNTIL IT ARRIVES 
RET ; QUIT WITHOUT READING IT 

; LOAD ROUTINE TRANSFERS FROM DISK TO MEMORY 

THIS ROUTINE IS PASSED AN I NODE VALUE WHICH 
IT DECOMPOSES INTO DISK /TRACK /SEC TOR. IT IS 
ALSO PASSED THE ADDRESS WHERE IT IS TO PLACE 
THE SPECIFIED SECTOR. IF DIFFERENT DRIVES 
ARE TO BE MOUNTED, THIS ROUTINE MUST BE 
MODIFIED TO INTERFACE THEM. 

LOAD: XCHG ; LOAD ADDRESS INTO DE 
POP H ; GET THE RETURN ADDR 
V XTHL 5 RESTORE IT, GET THE I NODE 
PUSH D ; SAVE ADDRESS ON STACK 
LXI D,15 5 SET DE TO SCTRS PER TRACK (15) 
CALL 0C012H ; DIVIDE, REMAINDER FUNCTION 
INR E 5 NOW, E IS THE SECTOR TO LOAD 
MOV D,L ? NOW, D IS THE TRACK TO LOAD 
MOV C,H 5 NOW, C IS THE DISK TO ACCESS 
POP H ; NOW, HL IS THE ADDRESS TO LOAD 

PLACE YOUR DISK DEPENDENT PROGRAMS HERE. IT 
SHOULD TRANSFER THE DISK /TRACK /SEC TOR SPECIFIED 
BY THE ABOVE REGISTERS TO THE MEMORY POINTED TO 
BY THE HL REGISTER. IT SHOULD MAKE SEVERAL TRIES 
TO LOAD THE SECTOR WHICH IS 256 BYTES IN LENGTH. 
Il- IT IS NOT SUCCESSFUL, IT SHOULD REPORT THE ERROR 
AND THEN JUMP TO THE WARM START ENTRY POINT (OCOO.^H) 
IF NO ERRORS WERE MADE, IT SHOULD JUMP TO THE 
CHKIO ROUTINE TO ALLOW SYSTEM RESTARTS TO BE MADE. 

JMP CHKIO 5 CHECK FOR RESTARTS 
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SAVE ROUTINE TRANSFERS FROM MEMORY TO DISK 

THIS ROUTINE IS PASSED AN I NODE VALUE WHICH 
IT DECOMPOSES INTO DISK/TRACK/SECTOR. IT IS 
ALSO PASSED THE ADDRESS WHERE IT IS TO FIND 
THE SPECIFIED SECTOR. IF DIFFERENT DRIVES 
ARE TO BE MOUNTED, THIS ROUTINE MUST BE 
MODIFIED TO INTERFACE THEM. 

E: XCHG ; LOAD ADDRESS INTO DE 
POP H ; GET THE RETURN ADDR 
XTHL ; RESTORE IT, GET THE I NODE 
PUSH D 5 SAVE ADDRESS ON STACK 
LXI D,15 ; SET DE TO SCTRS PER TRACK <15) 
CALL 0C012H ; DIVIDE, REMAINDER FUNCTION 
INR E ; NOW, E IS THE SECTOR TO LOAD 
MOV D,L ; NOW, D IS THE TRACK TO LOAD 
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POP H 3 NOW,, HL IS THE ALDKE5S TQ l!*D 

PLACE YOUR DISK DEPENDENT PROGRAMS HERE. IF 
SHOULD WRITE THE DISK/TRACK/SECTOR SPECIFIED 
BY THE ABOVE REGISTERS WITH THE MEMORY POINTED TO 
BY THE HL REGISTER. IT SHOULD MAKE SEVERAL TRIES 
TO WRITE THE SECTOR WHICH IS 256 BYTES IN LENGTH. 
IF IT IS NOT SUCCESSFUL, IT SHOULD REPORT THE ERROR 
AND THEN JUMP TO THE WARM START ENTRY POINT (OCOoXH) 
IF NO ERRORS WERE MADE, IT SHOULD JUMP TO THE 
CHKIO ROUTINE TO ALLOW SYSTEM RESTARTS TO BE MADE. 

J MP CHKIO ; CHECK FOR RESTARTS 



i hORMAT ROUTINE FORMATS AN ENTIRE DISK 

3 FOR 256 BYTE SECTORS, SINGLE DENSITY 

FORMAT: MOV A,L % GET THE DISK ID INTO A 

; PLACE YOUR DISK FORMATTER PROGRAM HERE. THE 

? DISK TO FGRMAT IS IN THE L AND A REGISTERS. 

; ALL TRACKS SHOULD BE FORMATTED. WHILE ANY 

? INTERLEAVE OF SECTORS IS ALLOWED, THE SYSTEM 

; WILL PERFORM FASTEST IF THE FOLLOWING INTERLEAVE 

? IS USED. 

EVEN TRACKS: 1 9 2 10 3 1 1 4 12 5 13 6 14 7 15 S 

5 ODD TRACKS: 5 13 6 14 7 15 S 1 9 2 10 3 1 1 4 12 

; THIS SELECTION MAY REQUIRE MODIFICATION IF AN 

; INTELLIGENT DISK CONTROLLER SUBSYSTEM IS USED. 
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These notes are intended to help the user understand the operation of 
uNIX. It attempts to explain how the system operates and what 
capabilities it has. Detailed information -for each command is 
contained in the Command Set section. 

THE FILE SYSTEM 

The uNIX -file system is, perhaps, its most attractive feature. It 
supports a hiearchial file system under which directories can have 
subdirectories which can have subdirectories ad infinitum. When the 
system is booted, it begins in the "root" directory. This is the 
highest level in the directory tree. Within the root directory, there 
can be any number of subdirectories. To find out if there are any 
subdirectories in the root, type "Is -al". In the output, the leftmost 
columns contain the mode of each file. Those having a "d" at the end 
of their mode are directories. You will see that "bin" and "lib" are 
directories. To move inside a directory, type "cd bin". Now, type "Is 
-al" and you will see a different set of files entirely. To get back 
to the root, type "cd". As you can see, the cd command allows you to 
move about in the directory tree. Whatever directory you are in at any 
given time is referred to as the "current" directory. It can be 
referenced in names as ".". The directory which contains the current 
directory as a subdirectory is referred to as the "parent" directory. 
It can be referenced in names as "..". A "grandparent" directory can 
be referenced using "../..". Any command which references a file will 
look for the filename in the current directory unless you specify 
otherwise. Using the characters "/" and "..", it is possible to 
reference files in other parts of the filesystem. For example, the 
file names "hello", "/hello" and "../hello" can reference three 
different files of the same name (hello). The first of these would be 
found in the current directory. The second would be in the root 
directory and the third would be found in the parent. It is possible 
to reference files in subdirectories below the current directory by 
names such as "dirx/hel lo" . Other possibilities such as 
". . /. ./dirx/temp/hello" exist. This notion of referencing files in 
other than the current directory is referred to as "pathname". A 
pathname is the path to a file such as "/dir l/'dir2/f i le" in which case 
the path begins in the root (due to the leading slash) or 
". . /dirx/f ile" in which case the path begins in the current directory 
(due to no leading slash). These two referencing techniques are 
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referred to as "absolute" path (/bin/temp) and "relative" oath 
( . . /dir;:/hel lo) . 

It is possible to make new directories (see mkdir), remove them (see 
rmdir) and move them about (see mvdir). There is' no limit on the 
number of subdirectories that can exist within any single directory or 
the total number of them within the system. Directory names (and 
ordinary files as well) can be made to disappear in listings of the 
directory in which they appear (see chmod),. 

Ordinary files can assume any length up to 8 Mbytes which is the 
maximum addressing range of the filesystem. Filenames can consist of 
any alphabetical character, upper or lower case, any number and the 
characters " . ■• and "_". Names are restricted to 13 characters. Files 
can be protected from reading or writing and they can be made to not 
list when the directory content is listed. Files can be moved about 
(see mv), copied (see cp), removed (see rm) or transfered to other 
disks (see uucp, dup) . Unlike other filesystems, there is no filetype 
for determining the use of the file and for that reason, there is no 
restriction as to the way in which files are used. Naming conventions 
are generally used to differentiate between files that are C programs 
(name.c), assembly language programs (name.s), link modules (name.o) 
and executable routines (name). However, these are simply conventions 
and are not required for the proper operation of the filesystem or the 
operating system. There is no constraint on the content of the files 
and any 8 bit pattern can be passed to or from them. End-of-file (EOF) 
is denoted by the value 8000H (0x8000 in C) which cannot be confused 
with any 8 bit data pattern. Operating system entry points are 
provided for reading (getc, getchar, read) and writing (putc, putchar, 
write) files. Another entry point, seek, allows the user to move the 
file pointers allowing random access of any byte within a file. Like 
directories, there is no constraint on the number of files in the 
f i lesystem. 

RUNNING PROGRAMS 

After uNIX is booted, it checks to see if there is a file named 
"profile" in the root directory. If there is, it will execute i t as a 
set of system commands. This is the source of the login message. If 
you wish to set parameters or run programs you have developed each 
time the system is booted, you can simply place the appropriate 
command line in the "profile" and the system will execute it each time 
it is booted. The profile is list and write protected. To list it, use 
"Is -a" and to see its content, use "cat profile" or "vi profile". To 
modify it, you must force the file mode bits to using "chmod". 

To run a program, simply type its name. The operating system will 
search a set of directories specified by the "path" variable for the 
name. If found, it will load the program and execute it. The path 
variable can be displayed and modified using the stty command. Further 
details on it can be found in the system subroutine. The default value 
of the path variable will cause the system to first search in the 
"/bin" directory and then in the current directory. The bin directory 
holds all operating system commands. When entering commands, multiple 
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commands can be entered on a single line from the console if they *r<=» 
separated by semicolons (;). 

STANDARD I/O 

When any program runs, any output it sends using putchar and any input 
it reads using getchar can be directed to or from a file (instead of 
the terminal) when the command is entered. For instance, the command 
Is sends its output to the standard output (virtually every command 
does). If xt is desired to save the listing in a file, simply type 
' ls.;f llename" instead. If you wish to add more output to the end of a 
file, an append operator is provided. For example, "Is -1 >>f i lename" 
will place the listing at the end of "filename" without otherwise 
modifying the file. Input to commands can be redirected as well. For 
example, "cmnd<fi lename" will cause "cmnd" to read from "filename" 
instead of the console. If it is desired to pass the output of one 
program to the input of another, a "pipe" for doing this is provided. 
For instance "cmndl i cmnd2" will cause the output of cmndl to be used 
as input to cmnd2. These pipes can be used any number of times within 
a command line. For example, "cl ! c2 ! c3 ! c4" . 

PHYSICAL DEVICE DRIVERS 

The file system allows uniform treatment of both disk files and 
physical devices such as line printers, terminals and modems. To use 
this feature, simply write a program which reads a character from the 
device into the L register (if it reads) or outputs the content of the 
L register to the device (if it writes). On input, the value (null) 
should be converted into SOOOH (end-of -f i 1 e) in the HL register pair. 
On output, the value ODH (carriage return) should cause both ODH and 
UAH (line feed) to be sent to the device. If a device is write only 
(such as a line printer), it can be read protected (see chmod) . If a 
device is read only (such as a keyboard) it can be write protected. If 
it can be read or written (such as a terminal) no protection bits are 
necessary but the routine must be informed whether it is to read or 
write the device. The operating system manages this by passing the 
value SOH in the H register if it is to read and 00H if it is to 
write. Thus, a simple check of the H register can be made at the 
beginning of the driver to decide which action it should take. Once 
the routine is written and an object module has been generated, check 
its length with "Is -1". Modules to be used in the capacity must be 
^6 bytes or less in length. This is plenty for most devices. Now, 
change the mode of the file to a physical device (see chmod) with the 
appropriate read/write protection. Once this is done, if output is 
directed to this filename or inputs are requested from it the 
operating system will not return the actual content of the file. 
Instead, it will cause the program in the file to be loaded and run to 
provide the requested I/O. This is a very powerful capability of the 
operating system. 

SHELL PROGRAMMING 

Frequently, in developing programs or using the system, a user will 
wish to execute several lengthy commands each time an' experiment 
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performed. Rather than type the commands over and over again, the user 
can place them in a -file and cause them to be executed by typing a 
simpler command. For instance, the command "sh<-file" causes the 
operating shell to read from "file". This will cause the commands in 
"file" to be executed. In doing this, the commands themselves will be 
echoed to the terminal as if the user were typing them. If this is not 
desired, try "sh file". This will eliminate the command echo. In fact, 
several files can be executed in this manner if desired as in "sh 
filel file2 file3". If the user wishes, the file can be declared to be 
an executable file (see chmod) in which case, the operating system 
will automatically interpret the file content as commands. Dnce this 
is done, typing "file" will execute the set of commands in the file. 

ARGUMENT PASSING 

When a command line is entered, the first name is the program to run 
and any other names are called arguments to that program. The 
operating system buffers these arguments and they can be accessed by 
any program running (see arg). Each program run is directly passed the 
number of arguments on the command line. Tokens which redirect I/O 
activity are not counted as arguments and will not be passed to the 
program. Thus, the program does not have to check its parameters to be 
sure they are really arguments and not I/O redirection. 

Shell programs can be passed arguments as well. This is discussed in 
detail in the system call section (see system). If a command line 
inside a file which is declared executable and the user wishes to 
refer to arguments on the command line which invoked the file, the 
user can do so using dollar sign ($) followed by a number where the 
number refers to the argument order with being the first argument on 
the line (the command name). Dollar sign fallowed by no number will 
stop and read an argument from the console and dollar sign foil wed 
immediately (no spaces or tabs) by a string in double quotes will 
print the string at the console before reading the argument. This 
allows the user to prompt for arguments. 

Assembly language programs as well can receive arguments from the user 
through the operating system. This is done in an identical manner as 
any command. Assembly programs can call the arg routine to receive 
arguments just as well as C programs. For complete detail on passing 
arguments and other operating system entry points, see the system call 
section of this manual. 

CONSOLE OPTIONS 

The console represents the primary I/O device through which a user- 
communicates with the operating system. The actual routines for 
reading and writing the console are placed in the bios section of the 
operating system (see mounting instructions). There is a file in the 
root directory named "con" which jumps to these routines so if any 
programs wish to do I/O directly to the console, they can open the 
"/con" file and then use getchar, getc, putchar or putc to read or 
write it. Several options can be controlled which relate to the 
console. In particular, the character delete (backspace), the line 
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'> see 



delete and tabstops can all be set up to be any value desired \see 
stty). Even the prompt string which the system uses to alert the user 
for more input can be set using stty. The visual editor (vi) ha<= a 
file for deriving the sequences it sends to the terminal for movinq 
the cursor, etc. (see vi ) . This allows the system to be set up for 
almost any smart terminal. Finally, the console terminal should have a 
keyboard and display capable of displaying the full ASCII character 
set. This is primarily needed for C programming where various bracket- 
and braces are used. However, the operating system does distinguish 
between upper and lower case itself. 

SYSTEM OPERATION 

This section gives a brief introduction to the internal operation of 
the system. This knowledge is in no way required for its use and is 
given only as a matter of information. 

The filesystem of the operating system is simply a collection of 
blocks called i-nodes. Physically, these are 256 byte sectors on 
disks. The system refers to these with an integer between and 32767. 
In doing this, the system becomes completely independent of the disk 
subsystem and is easily transported to other disk systems. The 
routines in the bios section are responsible for decomposing the 
l-node passed to them into disk/track/sector identities. This is made 
easy by the inclusion of a routine for producing quotient and 
remainder of a divide operation. I-nodes in the filesystem are used to 
store both file content and a forward linked list for determining what 
l -nodes are m use for files and what the next i-node in the file is. 
The linked list is distributed on the disk and can be found on every 
128th i-node starting with i-node 0. Since an i-node which is used for 
the linked list also stores 256 bytes, it can be thought of as 128 
integers (16 bit). Each integer represents the state of its 
corresponding i-node within that block on the filesystem, the first 
such integer being its own state (busy). The integer can be 
interpreted as four different states. If it is 0, then the 
corresponding i-node is idle and can be allocated for a file to 
utilize. If it is positive, the i-node is busy and the integer 
represents the next i-node in the file being accessed. If its value'is 
-1 (OFFFFH, Oxffff), the i-node does not exist in the disk svstem. 
This can be used to prevent the operating system from accessing i-node 
which do not exist in the "tail" of the disk and could potentially be 
used to prevent access of defective media. If the integer is negative 
but not equal to -1, then the corresponding i-node is the last sector 
in the file being accessed and if lower byte of the integer is the 
actual number of bytes used by the file on the i-node. This linked 
list is initialized by the fmt command such that all i-nodes except 
those in the linked list itself are idle. The root directory is also 
set up when the media is formatted. It is empty except for the name 
"." (its own reference value), and the root directory always beqins in 
i-node 1. 

Beyond this, nothing in the filesystem is structured. I-nodes are 
allocated sequentially from the linked list and will be used in blocks 
if possible. This prevents slow access due to file fragmentation. 



I-nodes can be used for files and directories alike. When a new 
directory is created, the system simply opens a new file, places " . " 
and ".." in it (along with the starting i-nodes -for each) and places 
the name and its starting i-node in the parent directory. This simple 
structure allows the creation of very sophisticated filesystem trees. 
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MEMORY MAP 



HQRY MAP 



OOOOOH - OSBFFH 

08C00H - 090FFH 
09100H - OAOFFH 
OAIOOH - OBFFFH 

OCOOOH - OFFFFH 



UNIX commands load at location O. This allows 35 
K bytes -for commands. 

uNIX stack area (1 K byte). 

UNIX variable area and disk buffers (4 K bytes). 

This arsa is not used by uNIX. Users can place 
video RAMs or other software here and rely on it 
not being altered by the operating system. 

The^NIX system kernel (16 K bytes). 



To begin with, only a small amount of memorv is needed at locat 
say 4 K bytes, but all other segments must be fully supplied. 



ion 0, 



1 - 



UNIX COMMAND SET 



The following is a list of commands provided in the /bin/ directory on 
your system disk. They are briefly described here and the pages that 
follow contain a more complete description of each. Any command can be 
executed by simply typing its name. 



as - Z-80 assembler 

asm - 8086 assembler 

cat - concatenate files 

cc - Z-80 C compiler 

ccc - 8086 C compiler 

cd - change directories 

chmod - change file mode 

crap - compare files 

cp - copy files 

cpr - print C programs 

demount - remove a mounted volume 

du - summarize disk usage 

dup - duplicate a disk 

echo - type arguments 

fmt - format a new disk 

inode - examine i nodes 

Id - Z-80 link editor 

Idr - 8086 link editor 

Is - list directory contents 

mk - prepare a C file for execution 

mkdir - make a new directory 

mount - access a volume 

mv - move or rename files 

mvdir - move or rename directories 

pr - format files for printing 

pwd - print working directory 

reloc - relocate to absolute 

rm - remove files 

rmdir - remove directories 

script - the text processor 

sh - the command processor 

stty - change crt parameters 

uucp - unix to unix copy 

vi - visual screen editor 

xas - executable Z-80 assembler 

i<cci - executable C compiler 

xd - dump a file in hexadecimal 

xld - executable link editor 

xsh - executable command processor 



ARB 



ARG 



35 



NAME arg - get the pointer to an argument 
SYNOPSIS arg (number) 

DESCRIPTION ARB expects only one argument which it uses as the command 
argument number which is being requested. It returns a pointer to the 
desired argument if it exists. If not, it returns a pointer to a null. 
The argument being requested is found on the command line which 
invoked the function that called arg. Argument on this line is the 
command name itself. I/O redirection tokens are not counted 
arguments and cannot be found using arg. As an example, 

cmnd abc def <temp xy2>looper 

will have as arguments: 

- "cmnd" 1 - "abc" 2 - "def" 3 - ">;yz" 

and arg will return pointers to each as requested. 

WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO system. 
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NAME close - cease accessing a file 



SYNOPSIS close (mode) 



DESCRIPTION This routine closes the file currently being used for the 
standard input and/or the standard output. The argument " passed to it 
indicates the mode of the file to b e closed as indicated below. 

Close the file being used as the standard input, resume 
reading the previous standard input file. 

1 Close the file being used as the standard output, resume 
writing the previous standard output file. 

2 Do both and 1. 



As indicated, the file previously in use as the standard input, 
standard output or both resumes its former status. Closing a file 
using mode 1 truncates all characters beyond the current write 
pointer. Closing with mode 2 does not. This is important when 
the seek subroutine. Close returns no values. 



using 



WARNINGS None. 



BUGS None known, 



FILES None. 



SEE ALSO open, seek, getchar, putch 



ar , 
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NAME compare - compare two strings in memory 
SYNOPSIS compare (&sl ,&s2> 

DESCRIPTION COMPARE is passed two arguments which are assumed to be 
addresses o-f two strings in memory which are terminated by NULL 
characters (0x00). The routine compares the two and returns a value of 
(not equal) or 1 (equal). Either string or both may contain the wild 
card (*) . Remember that the C compiler treats quoted strings as an 
address. This allows the user to program: 

if (compare (2<stringl , "hello") ) 
goto do__helloj 

•for testing input text to desired responses. 
WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO None. 
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NAME fprintf - print a value into a file 

SYNOPSIS -fprint-f ( id, format , value) 

DESCRIPTION FPRINTF allows the user to print values inside of strings 
in many different fashions. The results can be directed to any file 
open for writing in the system. It requires exactly three arguments. 
The first is the fileid returned by open when the desired file was 
last opened for writing. The second argument is the address of a 
format string which controls the output. The third argument is the 
value to print. FPRINTF will read the format string and will simply 
type any characters not preceeded by the percent <"/.) symbol directly 
into the file identified by id. If a percent symbol is found, 
subsequent characters control the printing as follow. 

YMd Print value as a signed decimal using N character positions. 

7.Nu Print value as an unsigned decimal using N character 
positions. 

YMx Print value as a hexadecimal number using N character 

positions. 

"/.No Print value as an octal number using N character positions. 



XNb 



Print value as a binary number using N character positions. 



V.c Print value as a single character. 

%s Print the null terminated string at the address value, ie. use 
value as a pointer. 

Use of a length field <N) is optional. If the number cannot be printed 
in N positions, it will be printed anyway using as many as required. 
If N has a leading zero <0) , the value will be printed with leading 
zeroes. Tabs are expanded as specified by the tabstops set by stty. 

WARNINGS Never write to an invalid fileid. 

BUGS None known. 



FILES None. 
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FPRINTF " FpRINT) 



SEE ALSO print-f, scanf , stty. 



SETC „„._ 

ufc. ! L- 



NAME getc - read a single character from a file 
SYNOPSIS getc (id) 

DESCRIPTION GETC requires a single argument which it uses as a fileid 
previously opened -for reading. It will return the next character in 
the file. Sines it returns an integer, binary data can be passed 
through files. When end of file is encountered, getc will return the 
value 32768 (0x8000) for any subsequent call. Note that this cannot be 
confused with real data since characters are between -256 and +255. 

WARNINGS None. 
BUGS None known. 
FILES None. 



SEE ALSO getchar, open, close. 
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NAME getchar - read the standard input 
SYNOPSIS getchar <) 

DESCRIPTION GETCHAR operates exactly like qetc but does not require an 
argument to determine what -file to read since it always reads the file 
last opened for reading. Like getc, it returns the value read with 
-•.2768 ( 0>c 8000 ) meaning end of file. 

WARNINGS None. 

BUGS None known. 

PILES None. 

SEE ALSO getc, open, close. 
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OPEN 

OPEN 

NAME open - access files 
SYNOPSIS open (&f i lename, mode) 

DESCRIPTION This routine opens a file as the standard input, the 
standard output, or both. It expects two arguments. The first is the 
e__ ut d .iLii ie, mmarea Tile nctme. The second is the mode of file 
access desired. Three values of mode are permitted. They are". 

~ open the file for reading only 1 - open the file for writing only 
2 - open the file for reading and writing 

Once open, the file becomes the standard input or output or both. The 
previously accessed file remains open and can be accessed using getc 
or putc. It will become the standard input (or output) once again when 
the current file is closed. It is possible to access the old standa-d 
input by using the fileid of the current file - 1 and the old standard 
output using the fileid of the current file + 1. This allows the user 
to perform I/O relative to the current fileid. When opening a file for 
writing, the file is assigned zero length. If a file already exists, 
it will be truncated to zero length. This action is not taken in mode 
i. If a file cannot be accessed, open returns the value -1 which is 
not a valid fileid. Modes and 1 return the value of the fileid which 
can be used with getc, putc, and fprintf respectively for accessing 
the file. Mode 2 returns a composite id equal to 16 * input_id + 
output_id. Directory names must end in "/" to be opened. 

WARNINGS Users should not modify directories. 

BUGS None known. 

FILES None. 

SEE ALSO close. 
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NAME printf - print a value at the standard output 
SYNOPSIS printf (format, value) 

DESCRIPTION PRINTF is identical to fprintf except that it does not 
accept a fileid argument. In lieu of this, it always directs its 
output to the file currently open as the standard output. 

WARNINGS None. 
BUGS None known . 
FILES None. 
SEE ALSO fprintf. 



PUTC F| , TC 

NAME putc - write a character to a file 
SYNOPSIS putc (id, byte) 

DESCRIPTION PUTC expects two arguments. The first is the fileid of a 
previously opened file to write. The second is the character to be 
placed in the file. There are no constraints on the byte being 
written. This allows transfers of binary data to files. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO open, close, putchar. 
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NAME putchar - write a character to a file 
SYNOPSIS putchar <byte) 

DESCRIPTION PUTCHAR sends the byte passed it as an argument to the 
•file currently open as the standard output. No constraints are made on 
the byte being passed. This allows binary data to be transferred. 

WARNINGS None. 
BUGS None known. 
FILES None. 



SEE ALSO open, close, putc. 
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NAME read - transfer a black -from a -file to memory 
SYNOPSIS read (id, address, nbytes) 

DESCRIPTION READ requires three arguments. The -first is the fileid to 
be used for the transfer. The second is the address in memorv where 
the block is to be placed. The third is the number of bytes to 
transfer. When finished, read will return the actual number of 
characters transferred. This routine can be alternated with getc or 
getchar on the same file and each will read sequentially. Read is most 
efficient when used to transfer large blocks of data but any length is 
permissible. The third argument, nbytes, is treated as an unsigned 
value. This permits moves of up to 65535 characters in a single block. 
If the file does not contain as many characters as requested, read 
will transfer all that remain and return that number. 

WARNIN6S None. 

BUGS None known. 

FILES None. 

SEE ALSO open, close, getc, getchar, write. 
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NAME scanf - text and number reading routine 
SYNOPSIS scanf (&bptr , &f ormat , ^variable) 

DESCRIPTION SCANF expects three arguments. The -first is the address of 
a pointer which CONTAINS the address o-f the string to process. The 
pointer would normally be a character pointer previously initialised 
to the address o-f a buffer loaded with ASCII text. The second argument 
is the address of a format string which will control scanf in matching 
text and reading values. The third argument should be a character, an 
integer or a character pointer depending upon the intended value to be 
transferred. Scanf will compare the text string to the format string. 
If at any time they do not match, scanf will terminate and return the 
value and they buffer pointer variable will not be moved. If they 
match to the end of the format string (a null terminates it), scanf 
will return the value 1 and the buffer pointer will be moved so that 
it points to the next character in the buffer. While matching, scanf 
recognizes special sequences in the format string. These are given 
below. . ■- 



V.d 



7.o 



Matches any number of blanks or tabs in the text string. 

Matches a decimal number. The value of the number will be 
placed in the variable. 

Matches a hexadecimal number. The variable will be set equal 
to the number. 

Matches an octal number. The variable is set to its value. 



"/.n Matches a number specifying its own base. Such numbers are 
4096 (decimal), 0x1000 (hexadecimal), 01234 (octal) and ObOlOl 
(binary). This is probably the most convenient format. 

V.c Reads a single character from the text and places it in the 

variable. In this case, the variable should be declared as a 
character . 

%s Reads a string from the text into the memory pointed to by the 
variable. In this case, the variable should be a character 
pointer and must have been initialized with a buffer address. 



WARNINGS None. 



SCANF SCANF 

BUGS None known. 

FILES None. 

SEE ALSO compare. 



SEEK 



NAME seek - move file pointers 

SYNOPSIS seek (page, byte, mode) 

DESCRIPTION SEEK expects three arguments. The -First is the page 
which the file pointer is to be positioned where a page is interoreted 
as 25o bytes. The second is the speci+ic byte within the page to' which 
the file pointer is to point. The combination of these is used to move 
the file pointer where the final position is taken to be 256 * page + 
byte. It is not necessary for byte to be in the range to 255. For 
example, page=0, byte-1024 is equivalent to page=4, byte=0. The third 
argument determines which file painter to move. Mode is decoded as: 



on 







read pointer 1 - write pointer 2 - both read and write pointers 



Notice that no fileid is passed since seek always moves the standard 
input and/or the standard output pointers. After seek is completed 
getchar, getc, putchar, putc, as well as read and write will begin 
accessing the file beginning at the new pointer values. 

WARNINGS If the files open ^re physical devices, seek merely returns. 
It is not possible to backup a physical device. 

BUGS None known. 

FILES None. 



SEE ALSO open, close. 
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NAME string - read a string into memory 
SYNOPSIS string (^buffer) 

DESCRIPTION STRING expects a single argument which it uses a<= the 
address ot a buffer in which it loads a string. Characters making up 
the string are read from the standard input until a newline is found. 
When this occurs, string returns the number of characters read from 
the input. The routine also places a null after the received newline 
so that the string can be processed by other routines but the null 
does not count in the count returned by it. While reading the standard 
input, characters are echoed to the standard output. It recognizes the 
character delete, line delete and tabstops set by stty. Tabs are 
converted to blanks only in the echoed output and the true tab value 
C0X09) is stored in the buffer. After the string is read, the routine 
checks to see if the first character is the exclamation point ('). If 
it is, string calls the operating system on the remainder of the 
buffer and then reads another string from the standard input. This 
allows easy access to the operating system from new programs being 

w \m\ 1 1 L a 



WARNINGS None. 
BUGS None known, 
FILES None. 
SEE ALSO stty. 
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NAME system - execute a command 



SYNOPSIS system (S^buffer) 



DESCRIPTION SYSTEM is the true command processor in the uNIX operating 
system. It expects a single argument which it uses as the address of a 
null terminated string containing commands. It. breaks the tokens found 
in the command string into separate strings. The first token which is 
not an I/O redirect control is taken to be the command. The program 
having that name will be loaded into memory and executed as an object 
module. The program must be in relocatable format as generated by the 
link editor and will be relocated as required by the operating system. 
The system will search directories for the command name as specified 
by the path variable. The path variable can be modified usinq stty. 
Normally, it is: 

"/bin/: : " 



which will cause the system to search first in the /bin directory 
then second in the current directory. The colons denote the end of 
path to which the command name is appended. In other words, /bin/:: 
the path and the command xyz is typed, the following paths will 
used for finding xyz. 



and 

the 

i s 

be 



/bin/xyz xyz 

All other tokens found on the line are considered to be arguments to 
the command. Any argument can be referenced by the user using the arg 
function. When the command is actually loaded, it is passed a single 
argument which is the number of arguments which was present on the 
command line invoking the program named by the command. Tokens are 
seperated by spaces, tabs, or I/O redirect symbols. Redirect refers to 
the operating system ability to establish what files are the standard 
input or standard output. This is done by preceding a name with the 
less than symbol <<> for the standard input or the greater than symbol 
O) for the standard output. Two greater than symbols <>>) specify 
appending to the named file as the standard output. Some examples 
fallow: K 

ls>file cmnd<abc>/xyz Is /bin/ >>file 

When specifying I/O redirect, the name must immediately follow the 
redirect symbol. Pseudo pipes are supported by system.' This allow* 
output from one command to be run as input to the next command. For 
example, 

Is !pr >/lpr 
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SYSTEM Qvcjpjvj 

will cause the output -from Is to be placed as input to pr whose output 
in turn is directed to /lpr. 

Multiple commands may be present in the buffer provided the- are 
separated by semicolons (;). ' 

The arguments of the calling function can be used within the current 
function. Dollar sign (*) specifies this action if it is followed 
immediately by the argument number desired. For example, a shell 
program xyz contains the statement: 

pr *1>$2 

When invoked by the statement xyz abc temp, the example will become, 
pr abc>temp 

If dollar sign is not followed by a number, system will read a string 
to use as the argument from /con. If dollar sign is immediately 
followed by a string in double quotes, the string will be printed at 
/con and then the argument will be read from /con. It is possible to 
concatenate arguments together by simply not placing spaces between 
them. For instance, 

tl.c *1*2 VEnter name".s 

are all proper values. The name of the calling command can be accessed 
using *0. 

System does not break up strings in double quotes but it does 
translate backslash sequences within them. For instance, 

"hello therein" 

will be kept intact with only the newline (\n> being translated. 

When system is finished processing the entire command string, it will 
return the same value returned to it by the last command executed. 

WARNINGS None. 

BUGS Double quoted strings cannot be used as I/O redirect token names 
(Is > "Hello there") . 

FILES None. 

SEE ALSO arg, stty. 
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NAME write - transfer a block from memory to a file 
SYNOPSIS write (id, address, nbytes) 

DESCRIPTION WRITE requires three arguments. The first is the fileid to 
be used for the transfer. The second is the address in memory where 
the block is to be found. The third is the number of bytes to 
transfer. When finished. write will .-<=.+•. .«-.-> +-k= =,-+-, .-*i 1 



When finished, write will return the actual number of 

characters transferred. This routine can be alternated with putc or 

putchar on the same file and each will write sequentially. Write is 
most efficient when used to transfer large blocks of data but any 

length is permissible. The third argument, nbytes, is treated as an 
unsigned value. This permits moves of up to 65535 characters in a 
single block. 

WARNINGS None. 

BUGS None known. 

PILES None. 

SEE ALSO open, close, put, putchar, read. 
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UNIX |JNIX 

NAME unix - start the operating system 
SYNOPSIS unix (start) 

DESCRIPTION UNIX is the beginning entry point for the entire operating 
system. It expects a single argument. The value of this argument 
determines the action taken. If the value is 1, the operating system 
makes a cold start. This implies." 

The tabs are set to 4. The erase is set to backspace (O-DS) . The 
prompt is set to ""/. ". The path is set to "/bin::". Anv file I/O is 
terminated, no files are open. The argument pointer is reset. The 
current directory is set to the root (1). If a file named profile 
exists in the root, it will be executed as shell commands. The shell 
is executed using /con for I/O. 

If the value is 0, the operating system makes a warm start. This 
impl ies: 

Any files open will be closed gracefully. The argument painter is 
reset. The shell is executed using /con for I/O. 

If the value is 2, the operating system initializes the file system 
and returns to the caller. This allows the user to use the file system 
for transferring files from other operating systems. 

WARNINGS If sh or /con are missing, the system cannot boot. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME >:as - the real 2-80 assembler 

SYNOPSIS >:as C-l 1 C-onamel C-pttH C->;3 file_name 

DESCRIPTION XAS accepts a number of argument flags. These are 
specified below. 



-1 



Generate a listing 



-oname Place the output in the "name" file 

~ p# Fa <3 e si2e ( -f°r listings) is # lines. (the default is 

66) . 

~ ! ' ! D ° not generate relocatable code. 

The final argument is the filename to assemble. The input language to 

the assembler must be in upper case and is a derivative of the 

Technical Design Labs (TDD modifications of the SOSO programming 
language to include Z-80 extensions. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO as, cc, Id. 
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NAME xcc - executable C compiler 



cc source destination 



DESCRIPTION XCC is the real C compiler. It accepts two arguments. The 
•first is assummed to be a C program to compile and the second is used 
as the destination file name for the resulting assembly language 
program. For example, 

xcc file.c result, s 

will place an assembly language program in the file result. s. This 
compiler accepts standard C program text with some exceptions. It does 
not allow for multiple dimensional arrays (one-dimensional only), it 
does not support structures in any way, and it does not allow 
initialised variables. It also does not support the #define statement. 
It does support all other standard features of the C language. 

WARNINGS Unlike cc, xcc does not append the ".c" and ".s" suffixes so 
remember to enter them if they are required. 

BUGS None known. 



FILES None. 



SEE ALSO cc. 



- 1 - 



XD 



NAME xd - hexadecimal dump of a file. 
SYNOPSIS xd file 

DESCRIPTION XD prints the named file (if found) in hexadecimal 
notation. The address, beginning with 0, is printed next to each line 
of 16 bytes. XD can only be terminated by cntl-Q. 

WARNINGS None. 

BUSS None known. 

FILES None. 

SEE ALSO None. 
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NAME >ild - the real link editor 

SYNOPSIS xld C-1J [-oname] C-eJ €~rl C-p#3 C -files] 

DESCRIPTION XLD accepts several arguments which are described below. 

~1 Produce a listing at the console 

-lname Produce a listing at "name" 

-oname Send the resulting module to "name" 

~ r# Offset the relocatable code by # 

~P # Page size (for listings) is # lines 

_e Retain any ENTRY definitions in the files (ie. place 

them in the output) 

WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO Id, as, cc. 



XSH 

XSH 



NAME >;sh - executable shell 
SYNOPSIS Never invoke this command 

DESCRIPTION XSH is used by the operating system -for executing files 
which are deemed shell programs. This is determined by the mode byte 
of the -file and is checked by the operating system when a command is 
invoked. 

WARNINGS Users should not invoke XSH or in any manner modify it. It is 
included here only for completeness. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME vi - visual editor 
SYNOPSIS vi file_name 

DESCRIPTION This manual describes the commands and capabilities of the 
VI screen oriented text editor. For the duration of this manual, the 
character •"- should be interpreted as the word "control". For instance, 
•'■■F means control -F. The symbol <cr> means carriage return, the svmbol 
-:.sp> means the space character, the symbol <bs> means the backspace 
character, and <num> means an optional number. All other characters 
should be interpreted exactly as depicted and be sure to observe their 
case (upper or lower) as it is significant. 



VISUAL MODE COMMANDS 
I. Vertical Motion Group 

<num>- Move up num lines in the tile, or to top. 

<num><cr> Move down num lines in the file, or to end. 

<num>g or G Go to line number num in the file, or to end if num is 
greater than total number of lines in file. 

h or H Go to top line currently displayed on screen. 

1 or L So to bottom line currently displayed on screen. 

'""F Scroll down 1 screen size in the file. 

"B Scroll back 1 screen size in the file. 

"'"D Scroll down 1/2 screen size in the file. 

"U Scroll back 1/2 screen size in the file. 

II. Display Control Group 

z<cr> Redraw screen, with cursor on top line. 

z ' Redraw screen, with cursor on center line. 
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2 Redraw screen, with cursor on bottom line. 

'"'- Redraw screen. 

III. Locate Group 

/string<cr> 60 to next occurence of character string "string" in the 
■file, searching in the forward direction. If end of file 
is hit, search will abort. 

?string<cr> Bo to next occurence of "string" in the file, searching 
backwards. If top of file is hit, search will abort. 

n Go to next occurence of the last locate string entered. 

Search in same direction as before. 

N Go ta next occurence of the last locate string entered. 

Reverse direction of search. 

"" When the cursor is currently pointing to a brace, 

bracket, or parenthesis, this command will locate the 
matching brace, bracket, or parenthesis. If not found, 
terminal will "beep". 

IV. Horizontal Motion Group 

<num><sp> Space forward num characters on current line, or to end 
of line. 

:.numXbs> Back up num characters on current line, or to start of 
line. 

Go to first character in current line. 

Go to first non-blank character in current line. 

* Go to end of current line. 

<num>w Move forward to start of numth following alpha-numeric 
word on current line, or to end of line. 

<num>e Move forward to end of numth following alpha-numeric 
word. 

<num>b Move back to start of numth previous alpha-numeric word. 

<num>W Move forward to start of numth following blank delimited 
word on current line, or to end of line. 
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<num>E Move -forward to end o-F numth following blank delimited 
word. 

<num>B Move back to start of numth previous blank delimited 
word. 

V. Delete Group 

<num>dd Delete num lines, starting with the current line, or 
delete to end of file. 

<num>d<sp> Delete the next num characters on the current line, 
starting with the current character, or to end of line. 

<num>>: Same as <num>d<sp>, only shorter. 



d* 



Delete from cursor to end of current line. 



<num>dw Delete from cursor to start of numth following 
alpha-numeric word on current line. 

<num>de Delete from cursor to end of numth following 
alpha-numeric word on current line. 

<num>dW Delete from cursor to start of numth following spare 
delimited word on current line. 

<num>dE Delete from cursor to end of numth following space 
delimited word on current line. 



VI. Yank Group 



<■ num>vv 



Yank num lines, starting with the current line, or yank 
to end of file. 



<num>y<sp> Yank the next num characters on the current line, 
starting with the current character, or to end of line. 

y$ Yank from cursor to end of current line. 

<num>yw Yank from cursor to start of numth following 
alpha-numeric word on current line. 

<num>ye Yank from cursor to end of numth following alpha-numeric 
word on current line. 

<num>yW Yank from cursor to start of numth following space 
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delimited word on current line. 

<num>yE Yank -from cursor to end of numth following space 
delimited word on current line. 

VII. Change Group 

<num>cc Change num lines, starting with the current line. 

■•.num>c<sp> Change the next num characters on the current line, 
starting with the current character , or to end of line. 



c$ 



Change from cursor to end of current line. 



<num>cw Change from cursor to start of numth following 
alpha-numeric word on current line. 

<num>ce Change from cursor to end of numth following 
alpha-numeric word on current line. 

<num>cW Change from cursor to start of numth following space 
delimited word on current line. 

<num>cE Change from cursor to end of numth following space 
delimited word on current line. 

VIII. Input Group 

i Insert new text between current character and previous 

character. 

a Append new text between current character and next 

character. 

(ESCape) Stop inputing characters into the file. 

r Replace the current character with the next character 

typed in. New line characters cannot be changed with this 
command. 
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Open a new line below the current line, and start 
inputting on this line. 

Open a new line above the current line, and start 
inputting on this line, 

Put the contents of the yank buffer between the current 
character and the next character (or between the current 
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line and the next line, if the yank buffer contains 
1 ines) . 

P Put the contents of the yank buffer between the current 

character and the previous character (or between the 

current line and the previous line, if the yank buffer 
contains lines). 

IX. Macro Group 

Macros are allowed to call each other, or themselves. Any command can 
De used in a macro. Any error which causes a "beep" terminates a 
macro. 

<num>m Execute the current definition of macro num <1 to 4). 

<num>M Display the current definition of macro num on the 
command line. 

<num>s or S Enter a new definition for macro num on the command line. 
X. Miscellaneous Commands 

""G Print file statistics on command line. 

<.num>t Set tabstops to every numth character. 

Display the current contents of the yank buffer. 
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J Join the current line and the line below it into one 

line, deleting the newline between them. 

C Toggle the caps lock option (converts all letters to 

capitals while in input mode). 

COMMAND MODE COMMANDS 
I. File Manipulation Group 

:w<cr> Write file to current file name displayed with A G 
command. 

:w fname<cr> Write file to file name fname. 

:W<cr> Same effect and options available as for :w<cr> above. 
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except that a :q<cr> will be executed after the write. 
:r<cr> Restore current file to version currently saved on disk. 

:e fname<cr> Discard current file being edited, and edit a new file 
named fname, if the current edited version of the file 
matches the version saved on disk. 

:E fname<cr> Discard current file being edited, and edit a new file 
named fname, regardless of the state of the version of 
Che file slaved on disk. 

:y fname<cr> Place the contents of file fname into the yank buffer. 
II. Program Control Group 

:q<cr> Quit the edit session, if the current edited version of 
the file matches the version saved on disk. 

:GKcr.> Quit the edit session, regardless of the state of the 
version of the file saved on disk. 

:.'string<cr> Execute the character string "string" as a shell 
command. 

USING DIFFERENT TERMINALS 

Each time VI begins running, it reads a terminal profile from the file 
/bin/vi crt which contains the various sequences which cause tn 
dlscr^bed below!"'" ° Perati0nS ° n its display. The file contents are 
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LinSS This is a binary character which is the number of lines 

available for display on the terminal screen. 

Home clear<cr>This string must contain the sequence which homes and 
clears the terminal screen. 

Clear to end<cr>This string must contain the sequence which causes the 
terminal to clear the screen from the current cursor 
location to the end of line. 

Insert line<cr>This string must contain the sequence which causes the 
terminal to insert an empty line at the cursor location. 

Delete 1 ine<cr >Thi s string must contain the sequence which causes the 
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terminal to delete the line at the cursor location. 

Enter insert mode<cr>This string must contain the sequence which 
causes the terminal to begin insertion o-f characters 
received at the cursor location. 

Exit insert mode<cr>This string must contain the sequence which causes 
the terminal to cease insertion of characters received 
at the cursor location. 

Delete character<cr >Thi s string must contain the sequence which causes 
the terminal erase the character at the cursor location. 

row offset+16 This is a binary character which will specifies how much 
offset to add to the row addresses passed to the 
terminal. Normally, this value is made to be 16 which 
results in no offset. 

move row<cr> This is the first part of the string which will cause 
the terminal to move its cursor to a new row and column. 
This portion specifies the row address as well as any 
characters to send before it is sent. The row address 
will be send when the specification V.d or V.c is found. 
If %d is used, the value is sent in ASCII decimal. If 
the format is 7.c, it will be sent as a binary character. 

col offset-t-16 This is a binary character which will specifies how much 
offset to add to the column addresses passed to the 
terminal. Normally, this value is made to be 16 which 
results in no offset. 

move col<cr> This is the second part of the string which will cause 
the terminal to move its cursor to a new row and column. 
This portion specifies the column address as well as any 
characters to send before or after it is sent. Like the 
row address, the value will be inserted whenever 7.d or 
7.c is found. 

Fortunately, this file can be created very simply usina the "echo" 
command of the operating system. First, write down the sequences and 
values to send. Then, determine what ASCII characters have these 
values and write them down. In doing this, control characters should 
be preceeded by a backslash (\) and remember that carriage return can 
be coded as \n. For instance, the sequence ESC 8< cntl-x can be written 
as "\C&\X". Once these sequences are written down, they can be placed 
into a file by typing: 

echo "the entire sequence" >fi 1 ename 
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An example sequence, which will condition VI -for a Hewlett-Packard 
HP2621 is shown below. Notice that the sequence has been broken in two 
parts *or convenience. 



echo "\X\CH\CJ\n\CK\n\[IL\n\CM\n\CQ\n\CR\n\CP\n">hp.crt 
echo "\P\E&a"/.dR\n\P7.dC\n">>hp.crt 

Note also that the second piece of the string is appended using the 
I/O redirect append operator (>>) supported by the operating system. 

The content of the file can be viewed using the ";:d" command to be 
sure it is correctly built. Then, move the file into the "bin" 
directory by typing: 

mv filename /bin/vi.crt 
Now, VI should be compatible with your terminal. 
WARNINGS None. 
BUSS None known. 
FILES /bin/vi.crt 
SEE ALSO None. 
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NAME script - text processor 
SYNOPSIS script file_name 

DESCRIPTION This manual describes a text formatter program entitled 
"MICROSCRIPT". MICROSCRIPT accepts a single argument which is the text 
file which is to be processed. It accepts no other arguments or flags. 

The MICROSCRIPT program has been modelled roughly after the "SCRIPT" 
text formatter program marketed by the University of Waterloo. 
Extensive simplifications to the features have been made, however, to 
allow efficient implementation on a small microcomputer such as the 
Z--80. Specifically, any sort of commands which would require extensive 
amounts of internal buffering have been eliminated. The primary losses 
thus incurred are as follows: 

1. Multiple column output is not supported in any way. All output must 
be in the form of one column per page. 

2. No specific support of footnotes is provided. 

3. No command is supported which requires that text be formatted 
first, and then printed later. For example, no support of 
"conditional paging" to force a block of text to all appear on the 
same page is provided. 

4. In addition, several little used commands have been eliminated 
and/or changed to allow greater generality of use at the cost of a 
certain amount of convenience. 



Despite these limitations, MICROSCRIPT is quite capable of supporting 
a wide range of document styles. Most of the unsupported features can 
be accomplished by perfoming a trial format of the document, and then 
making a few minor changes to the definition to allow for exact page 
placement. Only multiple column output remains impossible. 
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PAGE FORMAT: 



All documents prepared with MICROSCRIPT are, of course, printed on 
pages. Every aspect of page size and characteristics aire user 
definable within the framework of MICROSCRIPT. Each 
MICROSCRIPT has the following basic format: 



page produced by 



tt — > 



tm 



,pl 



1 nO- 



ll 



\ — . in — > ', 



.bt — > 



. bm 



•pi = page length 
. tm = top margin 
. bm = bottom margin 
. lm = left margin 
.11 = line length 
, in = indent amount within .11 
,tt = top title line 
bt = bottom title line 
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ENTRY OF COMMANDS AND ARGUMENTS: 

All commands to MICROSCRIPT are of the -form . xx, with the 
beginning in column 1 of an input record, and "xx" being a 1 or 2 
letter command. Command names have been picked as much as possible to 
reflect their function. Arguments are optional, depending on the 
command, and come in two forms: numerical values, and strings. A 
numerical argument may be specified in any one of four ways: 



The numerical value 
parameter. 



is assigned to the appropriate 



+n 



-n 



no arg. 



The parameter is incremented by the value of n. 

The parameter is decremented by the value of n. 

If the argument is left off entirely, the parameter returns 
to it's default vaule. 



A string argument is any sequence of printable characters surrounded 
by two "delimiter" characters. The delimiter character can be any 
printable character other than space, tab, or '*'. Examples of strings 
are as follows: 

/this is a string/ 
"\so is this" 

In some commands, more than one string must be specified at once, with 
consecutive delimiters between each. For example: 

/stringl/string2/string3/ 

You can put more than one command on one line, if desired, by 
following the first command with a ';', and then putting the leading 
'.' of the next command immediately after the ';'. It is also possible 
to follow a command with a ';' and then normal text to format all on 
one line. For example, if you wish to center just one line, it is 
allowable to type: 

. ce lilLine to center 



Finally, if some command .xx is not recognised, MICROSCRIPT will 
search on disk for a file with the name xx. (Note that the leading *.' 
is not part of the file name.) If the file exists, MICROSCRIPT will 
process any commands and input lines in the specified file until it is 
exausted, and will then return to the original file being processed. 
In this way, "macro" commands can be written for often used sequences. 
Nesting of macros £s allowed, and is limited only by the number of 
buffers in the operating system. 
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THE FORMATTING PROCESS: 

The MICROSCRIPT text -formatter program operates in one o-f three basic 
modes, selected by the user. A description of the functional 
characteristics of each follows: 

mode 1: The simplest mode of operation is "unformatted" mode, 
specified by the ".rvf" or "no-fill" command. In this made, 
lines o-f text from the input -file are copied to the output 
file exactly as they appear in the input file. All system 
parameters listed in the PAGE FORMAT section of this document 
are obeyed while in this mode, except for Une length (.11). 
In this case, lines will be whatever length you make them in 
the input file. This mode is primarily useful for entering 
tables, diagrams, and other things where the exact placement 
of all characters must be undisturbed. For example, the 
"picture" of a typical page which appears earlier in this 
manual was formatted using this mode. 

mode 2: Both other modes operate in what is known as "fill" mode, 
specified by the ".fi" command. When in fill mode, words of 
text are copied from the input file to a separate output 
buffer within MICROSCRIPT, one at a time, with one space 
between each word. Any extra blanks between words in the input 
file are deleted, and line boundaries within the input file 
have no real significance (except for delimiting command 
lines). Whenever the output reaches a point where" no more 
words can be included without exceeding the line length (.11) 
parameter, the buffer is printed, emptied, and the process 
starts over again. 

mode 3: The last mode available is "fill and adjust" mode, obtained bv 
specifying both the ".fi" and ".ad" commands. Adjust mode can 
be turned off by specifying ".na". If ".nf" is specified, the 
state of adjust mode is unimportant. Fill and adjust' mode 
operates in exactly the same fashion as fill mode alone, 
except that one additional processing step takes place. 
Whenever it has been determined that no more words will fit 
into the output buffer, extra spaces are inserted between 
words already in the buffer until the length of the line to 
print is exactly equal to the line length. This document was 
prepared using this mode. Also, this mode is the default 
condition when MICROSCRIPT is first called. 

As long as at least two full words can fit on any one line (of length 
.11), MICROSCRIPT will never hyphenate. If this condition is not met, 
MICROSCRIPT will, if necessary, hyphenate words to make them fit 
within the specified line length. Since MICROSCRIPT is not overly 
intelligent about it's placement of hyphens, it is best to avoid 
letting the line length get this small. 
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Whenever (in -fill mode) it becomes necessary to print the output 
buffer and start -Filling it over again, this condition is referred to 
as a "break". The most common reason for a break to occur is that the 
output buffer is full. However, there are several other conditions 
which may occur which will cause a break even if the buffer is not 
full. For example, if a new paragraph is started, the last line of the 
old paragraph must be printed before the new paragraph can begin, even 
if it is not full. Also, many other commands such as ".sp" ' (skip 
spaces) and ".bp" (begin new page) will cause a break. Whenever a 
break does occur, the last line printed will not be adjusted before 
printing, even if ".ad" is specified. This is necessary, since the 
output buffer is not really full. 

underscorinb: 



In order to underscore text within MICROSCRIPT, it is only necessary 
to surround the text to underscore with 'V characters. For example, 
if the following line is entered: 



\Every good boy does fine\. 

The following will be the result: 

£'i.e:>21_Q.QQd _ho£_does_ f i ne . 



If in no-fill mode, everything, between the '\' characters will be 
underscored, including any blanks. If in fill mode, only non-blank 
characters can be underscored. 

If it is really desired to enter a ' \> into the text stream, you can 
type '\V. Also, if some line contains only one ' \ ' , everything from 
the "V to the end of the line will be underscored. 

LIST OF AVAILABLE COMMANDS: 



The remainder of this manual consists of a list of all currently 
available commands within MICROSCRIPT, and a short description of the 
function of each. Whenever an underscored quantity appears in a list 
of argument options, this quantity is the "default" value, obtained if 
the argument is omitted entirely. Also, if a : '#-" appears' before the 
command name, this indicates that the command causes a break. 
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" ad Turn °n "adjust" made. Note that this command 

will do nothing i f ".fi" is not specified. 

.bm <6!n!+n!-n> Set bottom of page margin to -(argument)- lines. 

* .bp <£2£!ini+nl-n> Terminate current page, and begin a new page with 

page number < argument >. De-fault is the next page 
number. +n and -n argument values are relative 
off of the current page number (not the next page 
number) . 

* " br Initiate a "break". (Refer to section on the 

formatting process for a definition of break.) 

.bt <n!+n!-n> /stringl/string2/string3/ Bottom title line 

definition (see section on page format for 
placement on page). The bottom title line will be 
printed as the nth line of the bottom margin (n = 
<argument>). The line will consist of stringl 
left adjusted, string2 centered, and string3 
right adjusted within the line length parameter. 
If the sequence "$$" appears in any string, it 
will be replaced by the current page number 
printed as 2 decimal digits. Similarly, the 
sequence "s*$" will print the current page number 
as 3 digits. Note that these translations only 
apply to title line definitions. MICROSCRIPT 
defaults to " .bt ////". if the value of 
<argument> does not fall within the range of the 
bottom margin, the title line is not printed. 

* ■« < until -££in> Center the next <argument> lines in the input 

file. If no argument is given, all further lines 
will be centered until a ".ec" command is 
encountered. 

• ds From th e next line printed until some other 

command overrides, start double spacing between 
all printed lines of text. 

" ec Terminate line centering mode. If the mode was 

already off, this command will do nothing. 

• fi Turn an "fill" mode. 

* -in <Oini+n!-n> Indent all following printed lines by <argument> 

spaces, until some other command overrides. If in 
fill mode, the "effective" available line length 
will be decreased by the indent amount, so that 
the overall line length will remain the same. 
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* " le Terminate a 1 i st item. This is accomplished by 

setting the indent amount to 0, and then 
executing a " . sp 1". (See the ". 1 i "' command below 
■for the definition of a list item.) 

* .li <n!+n!-n> /string/ Start a list item. A list item consists of 

a string <the /string/ argument), and a block of 
text which is associated with that string. The 
.li command will execute a " . sp 1", and then set 
the indent amount to {argument). Note that the 
same variable is affected here as in the ".in" 
command. All lines printed after the . li command 
will be indented by < argument > spaces. In 
addition., the first line printed after the .li 
command is issued will have the contents of 
/string/ printed on that line, located at the 
very beginning of the line (without any indent). 
For example, the command list that you are now 
reading was formatted with .li commands, with 
•■'argument > = 21, and with each /string/ = to the 
name and argument list for the command. If 
/string/ is too big to fit within the alloted 
space provided by the indent, the "effective" 
line length will be decreased accordingly for 
that first line o-n.L'1- After the first line is 
printed, the indent will revert to the value 
specified in the .li command. Note that the .li 
command description that you are now reading is 
an example of this situation. 

* .11 <60!n!+n,'~n> Set current line length to < argument > characters. 

This value is only used in fill mode. Note that 
-in, .li, and .p may all cause the "effective" 
value of this variable to decreased. 

.lm <0ini+ni-n> Set left margin on page to <argument> characters. 

Note that this variable does not affect the 
defined line length. 

• na Turn off "adjust" mode. 

* - n * Turn off "fill" mode. 
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•P Begin a new paragraph. This command executes ,,. 

".sp 1", and then increments the indent amount by 
<pi> characters. This extra indent amount applies 
only to the first line printed after the . p 
command. After the first line, the indent amount 
reverts to it's previous value. The value of <pi > 
can be set with the ".pi" command. 

pi <3 !n !+n !-n> Set paragraph indent amount to <argument>. 
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. p 1 <66'n!+n!-n > 



Set current page length to < argument > lines per 
page. 



* .sp <2!n> Skip <argument> lines in the output -file. Note 

that if ".ds" is specified, 2*< argument > lines 
will actually be skipped. 

" 5S From the next line printed until some other 

command overrides, start single spacing all 
printed lines of text. 

.tm <6in!+ni-n> Set top of page margin to <argument> lines. 

.tt <ni+ni-n> /stringl/string2/stri ng3/ Top title line definition. 

See the .bt (Bottom title line) description for 
details. This command operates in the same way as 
-bt, except that it is associated with the to£ 
margin. 



* <tab> 



If a line of text begins with a tab character, 
MICROSCRIPT will perform the same actions 
incurred by issuing a ".p" command, except that 
it dees not print the blank line between 
paragraphs. When in the unformatted mode, no 
action at all is taken. 



WARNINGS None. 



BUGS None known. 



FILES None. 



SEE ALSO None. 
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NAME asm - the 8086 assembler 

SYNOPSIS asm L-lsl filename [filename! 

DESCRIPTION ASM is the 8086 assembler. It accepts one or more 
arguments which it treats as the path to a file to assemble. Filenames 
given in the arguments to asm are appended with ".s" prior to 
searching. The wild card character <*) is permitted and asm will 
assemble all files ending in ".s" which match the name. Asm accepts 
two flags, if desired, which can produce a listing and/or a symbol 
table. 

-1 Produce a listing 

~ s Produce a symbol table 

In both cases, the output will appear at the console unless the 
standard output has been redirected to a file. An example of this 
f ol lows. 

asm -1 /temp/* >temp. 1 isting 

The assembler accepts lower case files containina standard Intel 
mnemonics for the 8086. 

When the assembler is finished, there will be a ".o" file for each 
".s" file which it was asked to assemble. These files are ready for 
1 ink editing. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO ccc, ldr. 
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NAME ccc - the 8086 C compiler 

SYNOPSIS ccc filename Cfi 1 enamel .... 

DESCRIPTION CCC is the 8086 C compiler. It accepts any number of 
arguments greater than one and treats each as a pathname to a ".c" 
file to be compiled. The wild card character (*) is permitted and the 
compiler will compile all ".c" files which match the specified name. 
For example, 

ccc xyzzy /temp/ab* 

will compile "xyzzy.c" and all files in the directory "temp" whose 
names begin with "ab" and end in ",c". 

When the compiler is finished, there will be a ".s" file for each " . c " 
file which was compiled. These files are standard 8086 assembly 
language programs and are ready to be assembled by the 8086 assembler. 

WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO asm, ldr. 
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NAME ldr - the 8086 link editor 

SYNOPSIS ldr L-lsl filename Cfilename] 

DESCRIPTION LDR is the 8086 link editor. It accepts any number of 
arguments greater than one which it treats as a path to a ".o" -file to 
be link edited. The wild card character (*) can be used in which case 
the link editor will link all matching files ending in ".a". It 
accepts two flags. 

" -1 Produce a listing of the symbol table. The listing will 

appear at the standard output and can be re-directed to 
a file or printer. 

~ s Place a copy of the symbol table in the output. This is 

useful for debuggers. 

When the link editor has finished, there will be a single file created 
which will have the name of the first argument but without the ".o". 
This file is the executable module. 

WARNINGS None. 

BUGS None known. 



FILES None. 



SEE ALSO ccc, asm.. 



1 - 



CPR 

'wl~ :-■! 

NAME cpr - print C programs 

SYNOPSIS cpr C — f 3 C-i#3 C-p#3 filename 

DESCRIPTION CPR is a useful utility for printing C source programs. It 
provides pagination, titles, statement numbering, as well as level and 
bracket nesting. It accepts a single argument which is the filename to 
print. It also accepts a set of flags for setting options. 

~ f Ski P to a new page at the end of each C function. 

~ 1# Set page indent amount to # (default is 0) . 

~P # Set page length to # (default is 66). 

-fi#p# If all options are requested. 

WARMINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO None. 
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NAME as - Z-SO assembler 
SYNOPSIS as as_pgm 

DESCRIPTION AS accepts a single argument which it treats as the name 
of a ".s" -file. On completion, a new file named as_pgm.o will exist in 
the current directory. This file is a load module program ready to be 
link edited. For example, 

as myfile 

will cause "myfile. s" to be assembled producing "mvfile.o". Note that 
the user should not enter the ".s" suffix. The source file will not be 
modified in any manner. For more details on the 2-80 assembly 
language, see the xas manual. Listings cannot be produced using this 
command. If a listing is desired, use xas. 

WARNINGS This routine is simply a shell program which calls the real 
assembler, xas. 

BUGS None known. 



FILES None. 



SEE ALSO mk, cc, xas. Id. 
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NAME cat - concatenate •files 
SYNOPSIS cat Cfile name] 



DESCRIPTION The cat command permits the user to type those -files named 
at the standard output. It accepts any number of arguments including 
none. If none are given, it simply echos the standard input to the 
standard output until the end of file is reached. If arguments are 
passed, all -files named are typed. The wild card (#) is permitted and 
cat will type all files with matching names. Some examples are given 
below. 

cat *.c bios.s 

cat ../temp-file 

cat /user/help/* manual/;:* 

This command requires no -flags. Tabs are alwavs translated as 
specified by the stty setting. (See also STTY) 

WARNINGS Binary files (non-ASCII) cannot be viewed by cat. Attempts to 
do so may cause system buffers to be overflowed. 

BUGS None known. 

FILES None. 

SEE ALSO stty. 
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NAME cc - C compiler 

SYNOPSIS cc c_pgm 

DESCRIPTION CC accepts a single argument which it treats as the name 
of a ".c" -file. On completion, a new file named c__pgm.s will exist in 
the current directory. This file is an assembly language program ready 
to be assembled. For example, 

cc myfile 

will cause "myfile.c" to be compiled producing "myfile.s". Not that 

the user should not enter the ".c" suffix. The source file will not be 

modified in any manner. For more details on the C programming 
language, see the xcc manual. 

WARNINGS This routine is simply a shell program which calls the real 
compiler, xcc. 

BUGS None known. 

FILES None. 

SEE ALSO mk, as, xcc. Id. 
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NAME cd - change directories 
SYNOPSIS cd [pathname] 



DESCRIPTION The cd command permits motion within the file hiearchy It 
accepts either no arguments or a single argument. If no arguments are* 
given, it moves to the root directory. If an argument is passed, it 
moves to that directory. The argument may begin with a slash in which 
case the search begins at the root. If there is no leading sla=h it 
begins with the current directory. In either case, the argument should 
be a path to a valid directory. If any fault is found with the path, 
an explanatory message is printed. Some examples follow. 



cd cd . . /temp/abc cd /user/bin 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO mkdir, rmdir, mvdir 
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'_nriL.iL 1 

NAME chmod - change mode of files 

SYNOPSIS chmod newmode -filename [filenames] 

DESCRIPTION The chmod command allows the user to modify the mode word 
associated with a file. It accepts as arguments a new mode value and a 
list of filenames. The filename list can use the wild card (*) and can 
be paths to other directories. The new mode value is given in symbolic 
form using combinations of the letters shown below. 

1 No list. The filename will not be listed by the Is 

command unless the -a option (of Is) is used. 

* Shell executable. The file will be interpreted as shell 

commands when entered as a command rather than be loaded 
and executed directly. 

P Physical device driver. If input or output is directed 

to such a file, the file will be used as a program for 
doing I/O. The length of such a file must be less than 
256 bytes. 



w 



o 



Write protected. Files protected in this manner can not 
be written. This applies to physical device drivers as 
wel 1 . 

Read protected. Files protected in this manner can not 
be read. This is useful for physical device drivers 
which are write only. <ie. line printers). 

No modes. This removes all protection and/or mode bits 
so the file can be manipulated normally. 



Any unspecified option is disabled in the resulting mode. When 

specifying more than one flag, the flags must be ordered as listed 

(l,-;pwr). Directories can only be modified by the no list option and 

ordinary files cannot be made into directories by chmod. Some examples 
f ol low. 

chmod Ipw modem /dev/* chmod 1 /bin/ 

Note that when directories are named, the name must end in a forward 
slash. 



Be careful with the use of the wild card <*) and this command. If the 
modes of physical device drivers are made wrong, the file will be 
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destroyed it written and must be remade. If the console driver (/con) 
is damaged in this manner, the disk becomes useable. 

BUSS None known. 



FILES None. 



SEE ALSO Is 



CMP 

NAME cmp - compare two files 
SYNOPSIS cmp filel file2 

DESCRIPTION CMP does file comparison on a character bv character 
basis. It accepts two arguments which are taken to be filenames. If 
either cannot be found, a message is printed. Otherwise, the two are 
compared. If equal, CMP merely returns. If not, the line, char 
position and byte number are reported. CMP can be run on any file. 

WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO None. 
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NAME cp - copy files 



SYNOPSIS cp -file! file2 cp file CfilesD directory/ 

DESCRIPTION COPY routine allows users to copy files from one place to 
another. It requires two or more arguments. The last argument is the 
destination file (or directory) and all others are source files. Like 
the 'mv' command, it accepts source arguments with wild cards and 
copys all matching files into the destination argument which should be 
a directory. For example: 

cp abc* >:yz/ 

will copy all files whose names begin with abc into the directory 
named >;yz. This is quite useful for backing up large groups of files. 
When copy ed, the name of the files will be unchanged in the new 
destination directory. Copy will overwrite any existing file by the 
same name unless it is r/w protected, a directory or a phvsical device 
driver. 



WARNINGS None. 



BUGS None known. 



FILES None. 



SEE ALSO mv. 
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NAME demount - demount a disk volume 



SYNOPSIS demount volume name 



DESCRIPTION DEMOUNT allows the user to remove a previously mounted 
removable volume from the filesystem. It requires two arguments. The 
■first is the numeric id of the volume and the second is the directory 
name by which it is known. The removable volume will become linked to 
the root directory and the directory name will be removed (provided 
that it can be found). For example, 

demount 1 user 



will unlink the disk which has be mounted on drive 1 
directory named "user". 



and remove the 



WARNINGS The system must be reset if this command is executed from the 
volume being demounted. 



BUGS None known. 



FILES None. 



SEE ALSO mount 
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NAME rmdir - remove directory lists 
SYNOPSIS rmdir dir Cdirs3 

DESCRIPTION RMDIR permits directories to be removed. It accepts any 
number of arguments greater than or equal to one. Arguments may be 
pathnames and may include wild cards. If the argument is found, and is 
a directory containing only "." and " . . " , then it will be removed and 
will have its sectors deallocated. If the directory is not empty, it 
will not be removed. 

WARNINGS None. 

BUGS None known. 

FILES None. 



SEE ALSO mkdir, mvdir, cd. 



DU 



NAME du - summarize disk utilisation 
SYNOPSIS du C volume J 

DESCRIPTION DU command summarizes disk usage. It counts the number of 
files on the disk and the number of sectors in use. The number of 
files includes directories, hidden files and all others. In other 
words, it really counts ALL files. The number of sectors in use 
includes those associated with the linked list used for file 
management. It can be called with up to one argument which is the 
volume number to summarize. If no argument is given, it will summarize 
the root volume. An example summary is given below. 

130 files 

busy: 915, 229K, 79% 

idle." 240, 59K, 21"/. 

For the busy and idle reports, the first value is disk sectors, the 
second value is in Kbytes stored on the disk, and the final value 
represents the percent busy or idle of the total volume capacity. 

WARNINGS Unmounted volumes cannot be examined. Attempts to do so will 
require system reset. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME dup - duplicate a disk 
SYNOPSIS dup 

DESCRIPTION DUP allows the user to duplicate the disk currently 
mounted in the drive. It is intended -for single disk svstem<= only' 
Those with multiple drives can use the copy routine 'instead. It 
examines the disk i -map sectors and only loads those sectors which are 
actually in use. These sectors are buffered in memory until ^2K of 
store is used. It then prompts the user to mount the slave "disk 
copies the store onto the disk and then prompts the user to mount the 
master disk. Using this scheme, at most 10 exchanges must be made. 
When completed, the slave disk will exactly match the master except 
for those sectors which were not in use. The content of these should 
not matter. 

WARNINGS If any disk errors occur while writing the slave, dup cannot 
continue. Reset the system and repeat the operation. Be careful not to 
exchange the disks incorrectly. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME echo - type arguments as strings 
SYNOPSIS echo Ctext] 

DESCRIPTION ECHO simply sends all its arguments to the standard output 
as character strings. No character is placed between the strings when 
sent. Character translations such as r> are performed by the system 
when strings in double quotes are passed as arguments. If no arguments 
are given, ECHO simply types (exactly) the standard input to the 
standard output. Some examples fallow. 

echo "Hello world/?! 

echo abc def "Now is the time" 

ECHO is most useful when its output is redirected. 
WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO None. 



- 1 - 



FMT 



FM 



NAME fmt - format a disk volume 

SYNOPSIS fmt C volume 1 C drive 1 

DESCRIPTION FMT allows users to format uNIX disks. If no argument is 
given or if the argument is 0, FMT will create a root disk. If a 
single argument is passed, it denotes the volume number by which the 
newly created disk will be refered. If a second argument is given, it 
is the drive on which the volume will be mounted for formatting. It 
will request the insertion of the disk on the drive requested by the 
user. After the new disk is inserted and a return is typed, FMT will 
initialize the disk and place a fresh linked list having the directory 
"." as well as the "con" driver in the directory if the disk is a root 
disk. If the disk is not a root volume, it will contain "." and ".." 
where ".." is linked to the root. After formatting, the user will be 
asked to remount the system disk if drive was used. Mote that volume 
and drive are independent. This allows the user to create any volume 
using any drive. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME inode - display i nodes on a disk 
SYNOPSIS inode Cnumberl 

DESCRIPTION INODE ROUTINE allows the user to read and modify disk 
inodes. To read an inode, simply type the inode number to display in 
decimal (10) or hex (0x10), To modify an inode, simply type the inode 
number, the element to modify in brackets, an equals sign, and the 
value to subsitute. For example, 

21 C 153=0x44 

Any value can be specified in decimal or hexadecimal. Inode accepts at 
most one argument which is used as the first one to dump. It will then 
prompt for subsequent inode values. To exit the routine, type 
end-of-file (NULL). 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO None. 
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NAME Id - link edit load modules 

SYNOPSIS Id ld_module C ld_modul es3 

DESCRIPTION LD is the system link editor. It accepts, any number o-f 
arguments which are assumed to be names of "„o" files. The first of 
these is made the entry point of the resulting module so order counts. 
It automatically includes the file /lib/svs.o which links the 
operating system entry points (see LIB). For example, 

Id abc xyz /def/temp 

will link edit abc.o, xyz.o, /def /temp. a, and /lib/sys.o into a single 

executable file named abc. If no errors occur, the result can "be 

executed by simply typing its name. The resulting module is 
relocatable. 

WARNINGS This routine is simply a shell program which calls the real 
link editor, xld. 

BUGS None known. 

FILES /lib/sys.o 

SEE ALSO mk, cc, as, xld, reloc, LIB. 
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NAME Is - list -files in directories 

SYNOPSIS Is C-ailmstl Ef i le_names3 Cdirectory._paths] 

DESCRIPTION The LS command allows the user to examine the contents of 
directories. It accepts as arguments either filenames to match or 
paths to directories. Any number of arguments of either tvpe can be 
given. The command recognizes the wild card character ' <#) within 
filenames. Some examples follow. 

Is 

Is *. c 

Is temp temp>: 

Is /bin/a*.c user /help 

If a name ends in forward slash (/), Is will treat it as a directory 
and will list all files within it. Several flags are available to 
influence the command. These are described next. 

" a List ALL files, even those marked as unlisted 

~ x List the starting inode and the name 

-1 . Use fche lon 9 listing. Gives the filemode byte, the 

starting inode (in decimal), the length (in hex) and the 
file name 

~ m List the filemode byte and name 

~ B List the file size (in hex) and name. 

_t Trace and print all inode numbers (in decimal) used in 

the f i le(s) . 

Several flags can be given at once but they must be in alphabetical 
order. For instance, 

Is -al 

Is -t *.c 

Is -at /user/help *.c ../bozo 

Whenever the filemode byte is displayed, it is printed as the 
following symbols. 

1 - No list option (overide with Is -a) 
x - Shell executable 
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P - Physical device driver 
r - Read protected 
w - Write protected 
d - Directory 

If the option is not enabled, an underline <_> is printed in the 
letter's place. 

WARNINGS None. 



BUGS None known. 

FILES The names . and .. indicate the current and previous directory 
respectively. 

SEE ALSO chmod. 
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NAME mk - make a C program 

SYNOPSIS mk c_pgm CId_files3 

DESCRIPTION MK accepts a variable number of arguments. The first is 
expected to be the name of a C program,, c_pgm.c, and any other 
arguments Are expected to be load modules, ld_file.o. MK will run the 
C compiler and the assembler on the first argument. It will then run 
the link editor on all arguments. It automatically includes /lib/sys.o 
which is the system library. For example, 

mk xyz /lib/split ../f index 

will compile xyz.c (which generates xyz.s), and assemble xyz.s (which 
generates xyz.o). Finally, it will load the files xyz.o /lib/split. o 
. ./f index. o /lib/sys.o. 

WARNINGS Remember to omit the ".c" and ".o" suffixes. 

BUSS None known. 

FILES None. 

SEE ALSO cc,as, Id, >;cc,x as, xld. 
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NAME mkdir - make new directories 
SYNOPSIS mkdir name Enamel 

DESCRIPTION MKDIR routine permits the user to create new directories 
anywhere in the directory tree. Each argument should consist of a new 
directory name to place the in the parent directory. If the name is 
already taken or cannot be created -for some reason, a message will be 
printed. Otherwise, the directory will be added and will contain links 
to itself and its parent directory. These two links will be marked as 
directorys themselves and will have the 'list' option off. The new 
directory name in the parent directory will be marked as a directory 
but will have the 'list* option on. Any number of arguments may be 
given. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO rmdir, cd 
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NAME mount - mount a removable volume 
SYNOPSIS mount volume name 

DESCRIPTION MOUNT allows the user to access a demountable volume. It 
requires two arguments. The -first is the volume id to access and the 
second is the directory name which it is to be called. MOUNT then 
links the two disks so that the specified volume id appears as a 
subdirectory by the given name. MOUNT can be executed at any location 
in the files/stem. This allows a demountable volume to become a leaf 
in the root directory tree. If the given name already exists, the 
command will not mount the volume. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO demount 
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NAME mv - move -files within the filesystem 

SYNOPSIS mv filel file2 mv filel [files] directory/ 

DESCRIPTION MV command allows files (not directories) to be renamed or 
moved about in the directory hiearchy. The command requires at least 
two arguments. If more than two arguments are given, the last should 
be a path name to a directory. For example, 

mv abc xyz def . ./dirx/ mv abc ../dirx/ 

Wildcard <*) is also permitted. For example, 

mv abc* xyz temp ../ 

The more simple <and usual) use is to rename a file. For example, 

mv abc xyz mv temp oldfile 

WARNINGS If several files Are moved and the last argument is NOT a 
directory, all files but the last of them will be lost and the last 
will assume the new name. For example, 

mv abc abcde abcdefg xyzzy mv abc* xyzzy 

both result in lost files. A single file will remain named xvzzy which 
xs the last one found when searching the directory. This command 
cannot be used to rename or relocate directories, files which ar*> 
physical device drivers or protected files. To move such files, use 
chmod to clear the protection bits. 

BUGS None known. 

FILES None. 

SEE ALSO cp, rm 
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NAME mvdir - move directories within the filesystem 

SYNOPSIS mvdir old_dir new_dir mvdir dir Cdir_list3 directory/ 

DESCRIPTION MVDIR command allows directories (not files) to be renamed 
or moved about in the directory hiearchy. The command requires at 
least two arguments. If more than two arguments are given, the last 
should be a path name to a directory. For example, 

mvdir abc xyz def . ./dirx/ mvdir abc . ./dir;:/ 

Wildcard (#) is also permitted. For example, 

mvdir abc* xyz temp ../ 

The more simple <and usual) use is to rename a directory. For example, 

mvdir abc ::yz mvdir temp oldfile 

WARNINGS Never move a directory to itself (mvdir abc abc/), or to a 
subdirectory beneath it (mvdir abc xyz/), or operate on the names "." 
or "..". Either of these can scramble a disk beyond any hope of 
recovery. 

BUGS None known. 

FILES None. 

SEE ALSO mkdir, rmdir, cd. 
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NAME pr - print a list of files 
SYNOPSIS pr L-hl [filenames! 

DESCRIPTION PR does printing and reformatting of files. It accepts any 
number of arguments including none and treats each as the pathname to 
a file. Wild cards in the pathname Are permitted. If used, PR will 
print all files which Are found that match the pathname. It accepts a 
single flag, -h, which will suppress printing of the header on each 
page. If no matching files are found, an appropriate message is 
printed. Otherwise, the files will be printed at the standard output. 
If no arguments are given, PR will read the standard input for the 
information to print until it is exhausted. Tabs will be expanded as 
specified by the stty setting. The output of PR should be re-directed 
to the printer driver routine as shown below. 

pr manual >/lpr 
WARNINGS None. 
BUGS None known. 
FILES None. 
SEE ALSO stty. 
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NAME pwd - print working directory 
SYNOPSIS pwd 

DESCRIPTION PWD prints the working directory. This is done by moving 
up the file system from the current directory and seeking director- 
names that have the inode of the current directory. The" names ^rs 
concatenated and printed when no ".." directory is found. This denotes 
the top of the tree. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO cd, mkdir, rmdir, mvdir. 
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NAME reloc - relocate modules to an absolute address. 
SYNOPSIS reloc -file address 

DESCRIPTION RELOC accepts two arguments. The first is the name of -, 
module which has been link edited. The second is the address at which 

e ;°^ 7i" ?" Pi : Ced When ii: runs " The address can be specified 
in decimal C4U96) or hexadecimal (0x1000). Upon completion, a file 
named core will exist in the current directory which contains the 
absolute image. For example, 

reloc bozo OxcOOO 

?l 1 L=r era !: e ,V 0re filS WhlCh iS b ° 2Q loaded at 0««=000. This command 
is most useful for generating ROM images. 

WARNINGS Files generated for absolute loads will NOT execute under the 

operating system. The operating system memory management requires 

relocatable images which it converts to absolute images when the file 
is executed. 

BUGS None known. 

FILES core. 

SEE ALSO None. 
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NAME rm - remove lists of files 
SYNOPSIS rm file Cfiles] 

DESCRIPTION RM permits files to be removed. It accepts any number of 
arguments greater than or equal to one. They may be pathnames and may 
include wildcards. The pathnames are split into directory and file. If 
the directory is found, any name in it matching the file will be 
removed and have its inodes marked idle. If no matching file is found 
in the directory, the filename is printed along with a message. If the 
directory is not found, the directory name is printed. Files which are 
read protected, write protected, physical device drivers, or 
directories cannot be removed. To remove such files, force their mode 
bits to using chmod. Some examples follow. 

rm abc rm abc* /bin/temp rm . . /xyzzy*. c 

WARNINGS No second chance is given. Be careful with wild cards. 

BUGS None known. 

FILES None. 

SEE ALSO chmod. 
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NAME rmdir - remove directory lists 
SYNOPSIS rmdir dir CdirsH 

DESCRIPTION RMDIR permits directories to be removed. It accepts any 
number of arguments greater than or equal to one. Arguments mav "be 
pathnames and may include wild cards. If the argument is found, and is 
a directory containing only ».» and »..«, then it will be removed and 
will have its sectors deallocated. If the directory is not empty, if 
will not be removed. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO mkdir, mvdir, cd. 
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NAME sh - shell program 



SYNOPSIS sh C -files 1 



DESCRIPTION SH provides the basic system operation. It reads strings 
■from the standard input which it passes to the SYSTEM routine for 
execution. It is the first procedure invoked by uNIX. It can be called 
with no arguments in which case it will read the standard input. If 
arguments are given, it will open each of them as standard input and 
execute them as SYSTEM commands until the file is exhausted. SH 
accepts no flags. SH is responsible for prompting for new commands. 
The prompt string can be changed using the stty command. 

WARNINGS None. 



BUGS None known. 



FILES None. 



i-i 



LSO xsh, system, stty. 
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NAME stty - set teletype options 
SYNOPSIS stty Coption C value J 1 

DESCRIPTION STTY allows the user to setup various system options. The 
current options are: 

stty erase value (system character delete) stty kill value (system 
line delete) stty tabs value (system tab stops) stty path string 
(system command search) stty prompt string (system prompt string) 

If no arguments are passed, STTY will print the value of all options. 
It a single argument is passed, it will print the value o-f the 
selected option. When the system is reset, the initial values of the 
options are: 

erase = 0x08 kill = 0x7* tabs = 0x04 path = "/bin/::" prompt = "7. " 

If tabs are set to 0, the system will print the true value of the tab 
(Ox09). If it is other than 0, the system will replace the tab with an 
appropriate number of blanks for that group of tabstops. For further 
discussion of the path variable, see the "system" subroutine 
description. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO system. 
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NAME uucp - unix to uni;; copy 
SYNOPSIS uucp C files 3 

DESCRIPTION UUCP permits transfer of blocks of files from one disk to 
another using memory as a buffer. It accepts any number of arguments 
(including none) and treats each as the pathname to a file. Wild cards 
in the pathname are permitted. If used, UUCP will load and buffer all 
files found that match the pathname. It requires no flags and if no 
matching files are found, an appropriate message is printed. After all 
files are found and loaded, a message will be printed requesting the 
user to exchange disks. When this is done, the buffered files will be 
written onto the new disk under their old names but they will be 
placed at the root directory. The system will re-start using the new 
disk. 



WARNINGS No check is made for overflowing memory. Do not try to uucp 
more than 32K of files at a time. 

BUGS None known. 



FILES None. 



SEE ALSO dup 
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NAME rmdir - remove directory lists 
SYNOPSIS rmdir dir Cdirsl 

DESCRIPTION RMDIR permits directories to be removed. It accepts any 
number of arguments greater than or equal to one. Arguments may be 
pathnames and may include wild cards. If the argument is found, and is 
a directory containing only "." and "..", then it will be removed and 
will have its sectors deallocated. If the directory is not empty, it 
will not be removed. 

WARNINGS None. 

BUGS None known. 

FILES None. 

SEE ALSO mkdir, mvdir, cd. 
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equates : 

a_ equ 061h 
b_ equ 062h 
c_ equ 063h 
d_ equ 06 4 h 
e_ equ 065h 
f_ equ 066h 
g_ equ 067h 
h_ equ 068h 
i_ equ 069h 
J_ equ 06ah 
k_ equ 06bh 
1_ equ 06ch 
m_ equ 06dh 
n_ equ 06eh 
o_ equ 06fh 
p_ equ 070h 
q_ equ 07 1 h 
r_ equ 072h 
s_ equ 073h 
t_ equ 074h 
u_ equ 075h 
v_ equ 076h 
w_ equ 077h 
x equ 078h 
y_ equ 079h 
z_ equ 07ah 
sp_ equ 020h 
nl_ equ Odh 
A_ equ 04 1h 
B_ equ 042h 
C_ equ 043h 
D_ equ 044 h 
E_ equ 045h 
F_ equ 046h 
G_ equ 047h 
H_ equ 048h 
I_ equ 049h 
<J_ equ 04ah 
K_ equ 04bh 
L_ equ 04ch 
M_ equ 04dh 
N_ equ 04eh 
0_ equ 04 fh 
P_ equ 050h 
Q_ equ 051h 
R_ equ 052h 
S__ equ 053h 
T_ equ 054h 
U_ equ 055h 
V_ equ 056h 
W_ equ OS7h 
X_ equ OS8h 
V_ equ 059h 
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'F' 

'G' 

•H' 

• I ' 

■0' 

'K' 

'L' 

'M' 

'N' 

'0' 

,p, 

■Q' 
'R' 
'S' 
■T 
'U' 
' V 
'W 
'X' 
' V 
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2_ equ 05ah 
amp_ equ 040h 

qm_ equ 03fh 
ESC equ Olbh 
ESCMOD equ 1 
INSMOD equ 8 

ROWMOD equ 3 

COL MOD equ 4 

spbase equ Oafffh 

tau equ Ofah 

crtwrds equ OSOOh 

crtram equ ObOOOh 

endcrt equ crtram + (2 * 

botln equ crtram + OdOOh 

hlbot equ botln/OIOOh 

botlft equ crtram + OcBOh 

uplft equ crtram ♦ OBOh ; 

scdlne equ crtram ♦ OlOOh 

botlfl equ botlft + 1 

kbfsze equ 31 

keyprt equ Od6h 

kbvctr equ Oh 

pmodO equ Ofh 

pmodl equ 04fh 

enable equ OS3h 

disable equ 3 

1 gosze equ I 1 

dskdta equ Od3h 
dsksct equ Od2h 
dsktrk equ Odlh 
dskcmd equ OdOh 
SEEK equ Olfh 
OSKRST equ OdOh 
DMA equ OcOh 
WRSCTR equ OaBh 
ROSCTR equ OS4h 
keybrd equ Od4h 
mscntl equ Od7h 
mscio equ Od5h 
RAM equ Of2h 
ROM equ Of3h 
t2 equ Of6h 
FMTBLK equ 06000h 



org OOh 

dl 

out (ROM). a 

1m 2 

Id hi .crtwrds 

Id sp, endcrt 

Id de.O2020h 
clear: push de 

dec hi 

Id a.h 

or a 

jp nz, clear 

Id a, 1 

or a 

Jp nz, clear 

Id a. OSKRST 
out (dskcmd), a 



ampersand (•) 

question mark (?) 

ESC character 

CRT ESCAPE mode 

CRT INSERT mode 

CRT ROW mode 

CRT COLUMN mode 

where to start the stack 

cursor blinker time constant. In ms (fa - 250) 

number of 2 -byte words In CRT RAM 

beginning of CRT RAM 
crtwrds) - 1 ; last of CRT memory 

; the line below the bottom line on the CRT 

high byte of bottom line 

: lower left of screen 

Upper left of visible screen 

; Second line of the crt 

next space after bottom left of crt 

keyboard buffer size (32) -must be power of 2 - 1 

I/O control port for keyboard PIO 

keyboard Interrupt vector 

sets a PIO to mode O (output) 

sets a PIO to mode 1 (input) 

enables PIO Interrupts 

disables PIO Interrupts 

The logo gets printed at , the beginning 

Disk data register ( IO port) 

disk sector register (10 port) 

Disk track register (10 port) 

Disk command or status (10 port) 

track seek command for disk 

reset disk controller command 

DMA controller 

Write sector command 

Read sector command 

keyboard data port 

misc. PIO control port 

mlsc PIO data port 

RAM turnon port 

ROM turnon port 

timer 2 

start of block data for format routine 



- — *~ 




starts at the reset location 



make sure executing from ROM (cold start) 

Interupt mode for z-80 peripherals ~ ■ 

number of 2-byte words In the CRT RAM "~™° 

last location of the CRT RAM 

two ASCII 'blank's, one In each byte 

writes two 'blanks' to consecutive CRT locations 

looking for hl-O to stop clearing CRT RAM 

test upper byte first 

to make the flags appear 

certainly not through if upper byte Is > O 

now look at the lower byte 

If both are zero, we are done with clearing CRT .. / 

Reset the disk controller, to abort SEEK command 
which is Ineffective because the head Is 
unloaded during the automatic Reset SEEK 



v*l 



/yu> 



cn-r \> 



r«: 
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J 



Id hi .crtram 
Id de.0121h 
add hi , de 
ex de.hl 
Id be. lgosze 
Id hi . logo 
Idir 



Now for a little egocentMcl ty , we'll print a logo 

the beginning of the crt ram, for reference 
a good relative position to start logo 

want the crt ram address In de 

length of the logo (It's short) 

the address of the logo string, tucked away In rom 

one of those wonderful z-80 block transfers 



Enable the pio chip and the Interupts 



Id a, pmodl 
out (keyprt).a 
Id a.kbvctr 
out (keyprt).a 
Id a, enable 
out (keyprt).a 
in a, (keybrd) 



pmodl - 4f, sets the pio to mode 1 (input) 
keyport Is the control port for keyboard pio 
the Interrupt vector for the keyboard (-Oh) 

enable - 083h, enables port Interrupt 

do one read to set 'ready' output. 



Initialize 1 ms timer. £ (/^-oli? £ t**<- t-t/*ti*' U 



^ ticket 



\ 



Id a.07h 
out (Of4h),a 
Id a. Of ah 
out (Of4h).a 
Id a.OSh 
out (Of4h).a 



sets timer mode, non- Interrupt Ing, prescate/K 

f4 Is etc channel O. 

time constant of 250 counts - 1 ms total 

etc vector(s) 8 + counter # 



out (Ocfh).a ; Set single density for floppy controller 

xor a ; a "O 

Id (dskrdy).a : clear 'disk ready' flag 

Initialize PI08, Port B for miscellaneous Interrupts, Including disk 



Id a, Ocfh 

out (mscntl), a 

Id a, 1 

out (mscntl ) , a 

Id a.037h 

out (mscntl ) ,a 

Id a, Of eh 

out (mscntl ) ,a 

Id a, 01 Oh 

out (mscntl ) , a 

In a, (mscio) 



Mode 3 - bit I/O 

PIOB. Port B control 

DO only Is Input - all else 



outputs 



disable Interrupt, active high, mask follows 
(This Initialization 1s repeated In disk routines) 
Mask al 1 but DO. 

vector 

do a read to set 'ready output. 



misc. Initialization 



xor a 

Id (keyflg).a 
Id (kbwptr).a 
Id (kbfptr).a 
Id (cstat).a 
Id (dskid).a 
Id (crtmod).a 



Initialize keyboard flag - off 

keyboard write pointer 

keyboard read pointer 

start with cursor status - off. 

default disk ID is OO 

set CRT mode to normal 



Id hi .crtram 
Id bc.0200h 
add hi , be 
Id (curse), hi 
cal 1 curson 
Id hi , vectab 
Id a.h 
Id 1 ,a 



Id hi .O 

Id de.O 

Id bc,04000h 

ldtr 

out (RAM). a 

Id sp.spbase 
ei 

cal 1 restor 



monl tor : 



monl : 
mon2 : 
mon3 : 



Id sp.spbase 
call dskdly 
Id a.DSKRST 
out (dskcmd). 
Id a.Odh 
cal 1 putcrt 
Id a.024h 
cal 1 putcrt 



Id hi .monl 

push hi 

retl 

Id hi , mor>2 

push hi 

retl 

id hi . mon3 

push hi 

rotl 



ca 1 1 kbdchr 

and 07fh 

cp 072h 

jp z.readkw 

cp 077h 

Jp z.wrltkw 

cp 065h 

jp z, execute 

cp b_ 

Jp z.uboot 

Id a , qm_ 

call putcrt 

Jp monitor 



readkw: call kbdchr 



beginning of CRT RAM 

offset for the Initial cursor position 

start the cursor blinking 

the vector transfer table address Is vectab (I hope) 

need upper byte In a to load reg. I. 

load the high byte of vector table 



Load RAM from ROM and change to RAM 



turns RAM on 

load stack pointer so we can call subroutines 
enable interrupts so disk will work 
set disk to track zero 



\ -n— - ft 4 »</ /to** r**"^', 
> n> Lev *«^ ( 6-V«>*>i***j 4"^ 
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now we ask the almighty z to monitor the keyboard. 



reload the stack pointer 

wait for controller to clear 

Reset controller, abort any commands 



first print a 
\n 



'cr' and 



on the crt 



enable the system Interrupts. 

This next little operation clears peripheral devices 
that may have pending Interrupts acknowledged but 
not cleared with a "retl" command. Each Iteration 
clears only one device, so we will do three Just 
to be sure) 



that's 'keyboard character' - which returns a 

character when a key Is depressed. 

masks the parity bit (maybe not necessary) 

Is It an'r'7 

If so. It may be a read command 

Is It a 'w'7 

maybe a write command 

how about an 'e'7 

probably an execute command 

'b' points to boot command r- 

If anything else, we load a '?' Into A, 

and dump 1t to the crt at the cursor position 

then try again 



we seem to have a 'read' command, but let's 

look at the second character to find out which kind 



r'^Tr^) »<- 4UV " 



and 07fh 
cp OGbh 
jp z.rdkbd 
cp 074h 
jp z.rdtape 
cp 064h 
jp z.rddsk 
cp 06dh 
j p z , rdmem 
Id a.03fh 
cal 1 putcrt 
jp monitor 



is It a 'k'7 

'rk' means read hex from keyboard to memory 

is it a 't'7 

then load memory from tape 

if it's a 'd'. 

then load memory from disk 

'm' is for memory examination 

otherwise, '7' and back to monitor 



rdmem : 



rdml : 



cal 1 getaddr 

push hi 

call getaddr 

push hi 

pop be 

pop hi 

Id a, (hi ) 

call pthxch 

Ida, sp_ 

cal 1 putcrt 

inc hi 

dec be 

id a.b 

or c 

Jp z, monitor 

Jp rdml 



rdkbd: call getaddr 



rkbstrt : 



abrt : 



cal 1 kbdchr 

and 07fh 

cp 020h 

jp z.nxbyte 

cp Odh 

jp z, prompt 

cp 04h 

Jp z, monitor 

Id a,03fh 

cal 1 putcrt 

jp rkbstrt 



nxbyts 



cal 1 kbdchr 
cal 1 chkhex 
cp Offh 
Jp z.abrt 



start address to examine 

save it 

how many to read 

keep the count In BC 

use hi for address to read 

read the location 

puts out two characters for the byte in A 

'blank' 

gives a nice space between bytes 

next location 

decrement the counter 

are we done yet? 
If so. go home 
else do It aga t n . 



rdkbd Is a routine to allow Input of hex data 
into consecutive memory locations beginning with 
the address specified after the keyword 'rk', 
followed by a space, the hex bytes are separated 
by blanks, may appear as many per line as desired 
(and fit), a prompt consisting of the next address 
appears after each newline. the sequence 1s 
terminated by an 'eof character. 

; getaddr gets the starting address of the command, 
and writes It Into a location 'addr' 

next character after address, or after a byte 

should be a blank, newline or eof 

If a blank, 

expect two hex characters to follow. 

a newline should prompt a prompt. 

an eof ends the process . 

go home . 

else we have garbage, so print '?' and wait for blank 



nxbyte looks for two hex characters. If successful. 
It will write the equivalent byte In the current 
location In 'addr'. 1f garbage Is received, '?'s will 
be displayed until a 'blank', newline or eof - I.e., 
the particular byte is aborted. 



this returns a hex value in a, or ff If not hex 

If not hex. 

print a '?' and look for a blank, eof or newline 



Id b.a 

ca 1 1 kbdchr 

cal 1 chkhex 

cp Offh 

jp z.abrt 

Id hi , (addr ) 

rrd 

Id a.b 

rrd 

and the 
tnc hi 

Id (addr). hi 
jp rkbstrt 



tuck the hex digit away for a microsecond 
get the next digit 
same song second verse 



that's where we want to store this byte 
loads the lower nibble into upper nibble of (addr) 
recall, that's the upper nibble 

presto! the lower ntbble shifts to Its proper place 
upper nibble slips In behind It. deos ex machinal 
get the next address location 
and store that In addr 
look for blanks, etc. 



wr 1 tkw: 



call kbdchr 
and 07fh 
cp 074h 
jp z.wrtape 
cp 064h 
jp z.wdsk 
cp 06dh 
jp z.blkmv 
Id a.03fh 
call putcrt 
jp monitor 



Write command - tape or disk? or mistake? 
Gat the next character from keyboard 
mask parity bit 
' t ' for tape 

'd' for disk 

'm' for memory (block move) 

'?' If we don't know what else to do 

abort If unrecognizable character sequence 



Block Move routine moves from source address to destination 
address as many bytes as you please. 



blkmv: call getaddr 
push hi 
call getaddr 
push hi 
cal 1 getaddr 
push hi 
pop be 
pop de 
pop hi 
ldlr 
jp monitor 



next word will be the "from" address 

save 1 t 

next word will be "to" address 

finally, how many bytes to transfer? 

BC Is the counter for the LOIR command 

DE Is the destination pointer 

and HL 1 s the source . 

GO! 

done, go home. 



wrtape : 



cal 1 gtprms 
cal 1 wtape 
jp monitor 



Write memory to tape. First find out from where 
to read, where to stop, and where to write. 
Big tape writing routine. May be a dummy at first 
Back to monitor when finished 



wdsk : 



la c, 1 

cal 1 dsklo 

jp monitor 



Write block to disk. 

'Write' flag to common disk I/O routine 



rddsk : 



Id c.O 
cal 1 dsklo 
jp monitor 



execute: 



cal 1 kbdchr 
cp 078h 



Read block from disk 

Set 'Read' flag to common disk I/O routine 



Jumps to address specified after 'ex' keyword 
Get character after the 'e' 
Should be an 'x' 



uboot : 



uboot 1 : 



Jp nz.abrt 
Id be, monitor 
push be 
call getaddr 
Jp (hi) 



ca 1 1 kbdchr 
cp t_ 

Jp z. uboot 1 
Ida, qm_ 
cal 1 putcrt 
Jp monitor 



Id bc.OfOOh 
Id de.OalOOh 
Id hi .OlOOOh 
ldlr 

Id hi .OcOOOh 

Id (strtlc).hl 

Id hi ,040h 

Id (endloc).hl 

Id hi ,3 

Id (tnode).hl 

Id a.O 

Id (rwflg).a 

call dsklol 

Id bc.Ofh 
Id de,OcOS7h 
Id hi ,Oa920h 
ldlr 

Jp OalOOh 



Don't know what else to do. 

Want returns to 90 to monitor 

so load that to the stack. 

Gets the next 4 hex characters, assembles them 

into address In HL, to which we Journey now. bye I 



check for 'bt' command; boot uNIX If found. 

Already got 'b' ; look for 't'. 

If 'bt'. Boot. 

Else, '?' and return to monitor. 



H t*J* 



r*6<> 



r 



Boot UNIX. 

Number of bytes to move . 

Dest (nation 

EPROM source «£i 

B 1 ock move 

Start of uNIX kernel 

Number of sectors to read 

First Inode 

'Read' f lag 



Overlay Jump table 

uNIX location of Jump tabli 

BIOS location of Jump tablt 






» 
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Go To UNIX! 
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end monitor 



t Imer : 



tlmlp: 



t Imeln: 



push af 

push be 

Id b.a 

Id a,Oc7h 

out (t2).a 

xor a 

Id (tlmflg).a 

Id a,b 

out (t2).a 

Id a, (tlmf lg) 

or a 

jp z, t Imlp 

pop be 

pop af 

ret 



push af 
Id a.04 1h 
out (t2), a 



Goofs off for 'a' milliseconds 

CTC 2 Is driven by CTC O 

Tuck away the input parameter 

setup CTC 2 as counter, with Interrupt enabled 

t2 - Of6h - timer 2 

A - O 

zero timer flag 

recal 1 Input parameter 

The count ( 1-255) 

now loop till timer flag 1s turned on again 



Clean up and return when flag Is set (by the 
'tlmeln' Interrupt handler routine 

Here It Is: handles the CTC-2 Interrupts for timer 
Disables counter Interrupt and resets It 



Id a, 1 

Id (tlmflg).a 

pop af 

el 

ret 1 



; Set timer flag, so timer routine will trigger 
; re-enable Interrupts 



end t 1 me 1 n 



Times for 'a' x 250 milliseconds 

Uses 'timer' a times 
250 ms timer 



1 t 1 mer : 

push be 
Id b.a 
id a,250 

ltlp: call timer 
dec b 

jp nz. 1 tip 
pop be 
ret 



end 1 timer 



hexchr : 



digit: 
thigh: 



d1g2: 



thru : 



push af 

push be 

Id b.a 

and Ofh 

cp 10 

Jp m. digit 

sub lO 

add a,061h 

Id 1 ,a 

jp thigh 

add a,030h 

Id 1 ,a 

Id a.b 
rrc a 
itc a 
rrc a 
rrc a 
and Ofh 
cp 10 
jp m, d1g2 
sub 10 
add a . 06 1 h 
Id h.a 
Jp thru 
add a,030h 
Id h,a 
pop be 
pop af 
ret 



Returns 2 ASCII characters 1n h and 1 
representing the hex byte In 'a' 

save byte 

look at lower nibble 

If < lO. must be O - 9 

must be > lo. so subtract lO. and add A 

'a ' 

that's the lower character 

'O' ASCII 

the saved byte 

rotate upper nibble to lower position 



same song second verse 



upper character 



** + ***** + ***********,( 



end hexchr 



kbdchr : 



kbdchr returns a character when and If a key Is depressed. 
: save environment, stash all garbage) 



key loop: 



rdout : 



push be 
push hi 

Id a.(keyflg) 

or a 

Jp z, key loop 

Id a, (kbfptr) 

Inc a 

and kbfsze 

Id (kbfptr). a 

Idc.a 

Id b.Oh 

Id hi . kbdbuf 

add hi ,bc 

id a.(kbwptr) 

cp c 

jp nz. rdout 

xor a 

Id (keyflg).a 

Id a. (hi ) 
pop hi 
pop be 
ret 



this flag Is set by keyboard Interrupt routine 

If not set, there's nothing In the buffer 

kbfptr Is the offset of the last character read. 

this now points to the next character to be read 

kbufsze - 2**n - 1 for buffer size of 2*»n. 

reload the new pointer 

going to construct the address of the next character. 

buffer starting address 

now hi has the address of next character, first, however 

check to see If write pointer - read pointer. 

If they are the same, this "read" will empty the buffer 

so, we will clear the flag, otherwise, just return 

clear accumulator 

and thus clear the keyboard flag. 

actually reads the character from the buffer Into a 

restore the fragile environment 



End kbdchr 



getaddr : 



getaddr 1s a routine to get 4 hex characters and 
assemble them Into an address In HL and 'addr'. Aborts 
to monitor If It doesn't understand anything. 



push af 
call kbdchr 
and 07fh 
cp 020h 
Jp nz.qmk 

call kbdchr 
cal 1 chkhex 
cp Offh 
Jp z.qmk 
Id hi .addr 
Inc hi 
rid 

call kbdchr 
cal 1 chkhex 
cp Offh 
J p z , qmk 
Id hi .addr 
Inc hi 
rid 

cal 1 kbdchr 
cal 1 chkhex 
cp Offh 
j p z , qmk 
Id hi ,addr 
rid 

ca 1 1 kbdchr 
cal 1 chkhex 
cp Offh 



get a character 

should be a blank. 

qmk Is the abort for this routine 

this should be the beginning of the hex number. 

returns hex value In a. or ff if invalid. 

look for Inval Id case 

Is the 

addr Is the place where we will store the result. 

since this Is the high byte, store In next loc 

shifts digit into addr (4 bits). 

get second character 



3rd digit 



4th digit 



Jp z.qmk 
Id hi , aridr 
rid 



qmk : 



Id hi .(addr) 

pop af 

ret 

Id a.OSfh 
cal 1 putcrt 
Jp monitor 



return number 1n hi as well as (addr) 
bye! 

load a '?' 

write It to crt. 

abort and return to the monitor. 



End getaddr 



prompt : 



Write next address at left of screen 
'cr ' and newl Ine 

next address to be entered 

Writes hex number (one digit) on CRT 



Id a.Odh 
cal 1 putcrt 
Id de. (addr) 
Id a.d 
cal 1 pthxch 
Id a.e 
call pthxch 
Id a.OSah 
call putcrt 
id a.020h 
cal 1 putcrt 
jp nxbyte 

This 1s part of monitor: prontDt 



'space' 



gtprms : 



cal 1 getaddr 
Id (strtlc).hl 
cal 1 getaddr 
Id (endloc).hl 
cal 1 getaddr 
Id (tnode).hl 
ret 



gets start, end locations and tnode for 
tape/disk read/write. Getaddr returns 
next parameter In hi. as well as In (addr) 



«ttM»*tt«M»..*M*««»,MMt«tt»tM»«t»M»*«*tM*»«* 



ascl 1 : 

push de 

ex de.hl 

Id hi , tempi 

id a.d 

cal 1 chkhex 

cp Offh 

jp z.hexerr 

rid 

Id a.e 

cal 1 chkhex 

cp Offh 

jp z.hexerr 

rid 

Id a, ( tempi ) 

jp donasc 

hexerr : Id hi , msg3 
call pstrng 
Id a.d 
cal 1 putcrt 



Two ASCII chars In hi are combined Into a 

byte In A 

need hi later 

a nice utility storage location 

look at the high byte 

look for non-hex flag 

Rotate digit into tempi 

Do It again for the lower byte 



Return the byte In A 



msg3 - ' inval Id hex char 
puts the string to CRT 
NOW PRINT THE Input data 



Id a.e 
call putcrt 
xor a 



return with O In A 



donasc : pop de 
ret 



msg3: db 049h.06eh.076h.061h.06ch.069h.064h.020h.0SBh 065h 
db 078h.020h.063h.06ah,061h.072h.020h,0 

End ASCII 



chkhex : 



»rhx : 



cp 030h 
Jp m.erhx 
cp 03ah 
Jp m.numhx 
cp 061h 
Jp m.erhx 
cp 067h 
j p m , a 1 phx 

Id a.Offh 

ret 



numhx : sub 030h 
ret 

alphx: sub 057h 
ret 



If ASCII character InA Is 0-9 or a-f. returns 
hex value In A. Else returns ff 

< 'O' ? 

< '9' + i 7 

< 'a' ? 

< 'f ' + 1 7 (I.e., g') 

ff -> A 

A - 'O' — > A 

(A - 'a' ) + lO --> A 



End chkhex 



putcrt writes a character (found In a) to the crt 
much like a serial terminal. 



putcrt : 



push af 
push be 
push de 
push hi 
cal 1 cursof f 

cp ESC 

Jp z.setesc 

Id c.a 

Ida, (crtmod) 

and 7 

cp ESCMOD 

jp z. escape 

cp ROWMOD 

Jp z.row 

cp COLMOD 

Jp z, column 

Id a, (crtmod) 

cp INSMOD 

jp z, Insert 

or a 



Turn the cursor off, which replaces the character 

at the cursor location and prevents Interrupts 

First look for the ESC character 

If found, set escape mode 

save the character In C for a while 

F Ind state of CRT 

look at all but INSERT mode bit 

escape mode? 

Row mode? 

column mode? 

reload crt mode to look at INSERT bit 

Insert mode. 



nu 1 1 o : 



eoln: 



cal 1 nz.audcrt 1 

Id a,c 

cp 020h 

jp m, special 

cp 080h 

Jp p. special 

Jp z, special 

Id hi , (curse) 
Id (hi). a 

id a. 1 

cp 04fh 

j p z.eoln 

cp Ocfh 

Jp z.eoln 

Inc a 

id 1 .a 

Id (curse). hi 

cal 1 curson 

pop hi 

pop de 

pop be 

pop af 

ret 

Id de.031h 

add hi . de 

Id (curse), hi 





Id da, bo tin 




id a.d 




cp h 




Jp nz.nullo 




Id hi .botlf t 




Id (curse), hi 




cal 1 scrol 1 




J p nu 1 1 o 


spec 1 a 1 





cp OBOh 
Jp p.nul 1o 
J p z , nu 1 1 o 

cp 08h 

Jp z.backsp 

cp 09h 
Jp z, tab 

cp Oah 
Jp z.lf 

cp Och 
jp z.cl r 

cp Odh 
Jp z.cr 
jp nul lo 



Any other modes are Illegal 
restore character to A 
check for special chars (< 20h) 
handle those separately 
currently not allowing bit 7 ■ 1 



pointer to cursor 
that's where we will write, 
now. fiddle with the cursor. 
1 ower byte of cursor address 
that's eol for even rows 
return and scrol 1 
eol for odd 1 Ines 



If not eol. Just Increment cursor address 
don't worry about carry - never occurs In lint 
update the cursor position 
Now turn the cursor back on before departing 



bye! 

just wrote last char on line, move cursor to 

beginning of next line, (by adding 31h) 

update the cursor position 

If cursor >- xdxx, we must scroll 

Just look at the upper byte 

otherwise, we'll just return 

scroll needed - first set cursor to bottom left 

scroll moves everything up one, but leaves cursor. 



; handles special characters, like tabs, spaces, etc. 

; Initially, If b1t7 - 1 we will just Ignore It. 

; backspace? 

: tab? 

: 1 Inefeed? 

; formfeed (clear screen)? 

; carralge return? 

; don't know what 1t Is. so Just Ignore It. 



backsp: Id hi, (curse) 
Id a. 1 
cp Oh 
J p z , nu 1 1 o 
cp 040h 



backspace moves cursor back, does not erase, 
stops backspacing at beginning of line. 



J p z.nullo 



dec a 

Id 1 .a 

Id (curse) .hi 

J p nullo 



not at beginning of line, so decrement. 



Id a.020h 

cal 1 putcrt 

Id hi . (curse) 

id a. 1 

and 07h 

j p z . nu 1 1 o 

jp tab 



put out spaces until cursor Is left at even '8' mult. 



look at last 3 bits 

done. 

do 1 t again 



If: 



nxt 1 ine: 



Id hi . (curse) 
id de,080h 
add hi , de 
Id a.h 
cp hlbot 
jp nz.nxt 1 Ine 
cal 1 scrol 1 
j p nu 1 1 o 

Id (curse), hi 

j p nu 1 1 o 



leaves cursor in same relative position. 

adding 80h to cursor position puts It strt. down 

however, 1f cursor >- 0300h, must scroll 

compare bottom of screen (high byte) 

If not below screen, reload cursor 

scroll won't change curse, so we Just leave It atone 

gracefully return. 

reload the cursor with the new value 



clr: 
movup : 



Id a, 26 

cal 1 scrol 1 

dec a 

Jp nz, movup 

id hi .uplf t 

Id (curse), hi 

j p nu 1 1 o 



going to do 26 scrolls to clear the screen 

going to put cursor at top left 
graceful exit. 



oddl n: 



escape: 



Id hi , (curse) 

Id a, I 

cp 07fh 

Jp p.oddln 

Id 1 , Oh 

Id (curse), hi 

Jp If 

1 d 1 . 080h 

Id (curse), hi 

jp If 



Id 


a 


. (crtmod) 


and 


tNSMOD 


Id 


(crtmod) ,a 


Id 


a 


c 


cp 


E_ 




JP 


z 


cl r 


cp 


K_ 




JP 


z 


cl rlne 


cp 


L_ 




JP 


z 


Ins ine 


cp 


M. 





return to start of line and do line feed 

look at the lower byte 

If greater than 7fh, we were on an odd line 

even line: return to O.(l) 

moves the cursor back to start of current 1 Ine 
now do a line feed, note: routine returns 'cf 
odd line: return cursor to xx80h. 



previous character was and ESC 

clear all but INSERT mode bit 

look at the new character 

Home/Clear routine 

Clear to end of line 

Insert new line at cursor row 



Jp 


z , da 1 no 


cp 


amp_ 


Jp 


z , 1 nsmde 


cp 


0_ 


Jp 


z . exmod 


cp 


N_ 


JP 


z.delchr 


cp 


Y_ 


Jp 


z, mvrow 


Jp 


nul lo 



delete a 1 Ine 

enter Insert mode 

(capital 0) 

exit Insert mode. 

Delete character at cursor 

cursor row set 

Ignore anything we don't understand 



c 1 r 1 no : 



cinl ; 



Id hi . (curse) 

Id a. 1 
cp 04fh 
jp z.nul lo 
cp Ocfh 
Jp z.nullo 
Id a , sp_ 
Id (hi ).a 
inc 1 
jp cinl 



Clears from cursor to end of line 
Get cursor position 



EOL for even rows 

done 

EOL for odd rows 

A 1 so dona 

Not done, so write a blank 

at (hi ) 

Next . . . 

do 1 t aga 1 n 



1 ns 1 ne : 
InsO: 



Inst : 



cal 1 crsbol 

Id de.botlft 

scf 

ccf 

sbc hi ,de 

J p z , c 1 r 1 ne 

Id hi ,botlft-080h 

Id bc.80 

ldlr 

scf 

ccf 

Id bc.OdOh 

ex de.hl 

sbc hi ,bc 

ex de.hl 

sbc h 1 , be 

Id be, (curse) 

Id a.e 

cp c 

jp nz, 1ns1 

Id a.d 

cp b 

jp ra.lnsl 

jp clrlne 



Inserts blank 1 Ine at current cursor 
line, moving lines below It down, 
cursor to beginlng of line. — > HL 

clear the carry for 16 bit subtract 

Is cursor at bottom row? 
If so, just clear the line 
; Next row up 

BO columns 
moves 'am down 

clear carry flag 

enough to get to start of next line up 

first do DE 

subtract 



Going to see if the activity is at (curse) 

yet . 

If not, do some more 



blank the row If at cursor 



delne : 



call 
Id d, 

Id e, 



crsbol 

h 

1 



Deletes line of cursor; moves lines below 
one up; blank line at bottom; cursor 
at beginning of deleted line, 
cursor to beginning of currant line 
HL now has starting cursor position 



Id bc.OSOh 
add hi .be 
Id bc.ao 
col 1 ropes t 
j p nullo 



Next 1 Ine below 

SO columns 

part of scroll: routine. 



crsbol : 



crsbt ; 



push af 

Id hi , (curse) 

Id a, I 

cp 07fh 

jp p.crsbl 

Id 1 ,0 

Id (curse), hi 

pop af 

ret 

Id I, 080h 

Id (curse). hi 

pop af 

ret 



Puts cursor at start of current line 
returns position In HL 



If > 7f . oddl Ine 
BOL for even 1 Ine 
reload It 



BOL for odd line - xxSO 



Insmde : 



Id a.INSMOD 
Id (crtmod).n 
j p nullo 



Enter the Insert mode 



Id a.(crtmod) 
or ROWMOD 
Id (crtmod).a 
J p nu 1 1 o 



enter row address mode 

put rowmode bits In without changing Insert mode 



setesc : 



Id a.(crtmod) 
or ESCMOD 
Id (crtmod).a 
jp nullo 



An ESC character has been received; set esc mode 



exmod: 



xor a 

Id (crtmod).a 

j p nu 1 1 o 



Exit Insert mode - clear everything 



delchr : 
deld : 



Id hi , (curse) 

id a, 1 
cp 04fh 
jp z,delc2 
cp Ocfh 
jp Z,de1c2 
Ine hi 



Delete character at cursor position. 
Move text right of cursor left one slot. 



end of line, even row 
end of 11 ne . odd row 



dolc2: 



rowl ; 



Id a. (hi ) 
dec hi 
Id (hi ).a 
Inc hi 

Jp delcl 

Id a , sp_ 
Id (hi ),a 
Jp nullo 



Id a.c 
cp 25 
Jp m.rowl 
Id a. 24 

Id (rowno) .a 
Id a. (crtraod) 
and INSMOD 
or COLMOD 
Id (crtmod).a 
j p nullo 



ol umn 






Id a, (crtmod) 




and INSMOD 




Id (crtmod), a 




Id a.c 




cp 80 




j p m , CO 1 1 




Id c,79 


oil: 






Id de.OSOh 




Id hi .uplf t 




Id a, ( rowno) 




or a 




jp 2, CO 13 


o12: 






add hi ,de 




dec a 




jp nz.col2 


ol3: 






Id a.c 




add a, 1 




Id 1 .a 




Id (curse), hi 




j p nu 1 1 o 



Insert : 



Id de, (curse) 

Id h.d 

Id a.e 

cp 80 

jp p. Insrtl 

Id 1.04fh 



get char, to right 
put It one left 

Blank last character In row 



load row register 

restore the character to A 

Only 25 rows 

OK If less than 25 

else set to max » 24 

save It for next time 

clear all but Insert Mode bit 
concatenate Column mode bits 



expect column address 

Clear all but the Insert mode 



only BO columns 

1f less, OK 

else change C to 79 

Distance between rows 

upper left of screen 

Row number from previous read 

skip multiply If rowno - O 

crude multiplication 

add A times! 



column offset 

add It to the hi (don't worry about carry) 



Inserts a character at cursor position 
Won't advance beyond EOL 



> BO --> odd 1 1ne 
EOL for even line 



Insrtl : 



tnsrt2 : 



1nsrt3: 



1nsrt4 : 



jp 1nsrt2 

Id 1 .Ocfh 

Id a, e 

cp 1 

Jp 2, InsrtS 

dec 1 

Id a. (hi ) 

tnc 1 

Id (hi ).a 

dec 1 

jp 1nsrt2 

Id (hl),c 

Id a, 1 

cp 04 fh 

jp z, 1nsrt4 

cp Ocfh 

jp z, 1nsrt4 

tnc hi 

Id (curse). hi 
Jp nulla 



EOL for odd 1 ine 

Are we back to cursor posit lomn yet? 

get character to left 
move It one right 



load the Incoming character there 
Now make sure we are not at the EOL 



If not. Increment cursor 
load cursor 



End of putcrt 



"crtmod" had Illegal value 



load message address 
prints the message 

temporarily store the mode 

clear the CRT mode 
recall the Illegal mode 
print It 



audcrt 1 






push af 




push hi 




Id hi .crtml 




cal 1 pstrng 




Id a, (crtmod) 




Id 1 .a 




xor a 




Id (crtmod), a 




Id a. 1 




cal 1 putcrt 




pop hi 




pop af 




ret 


crtml : 


db I . l 




db O 



■9_.a_. '_.SP_.C_.R_ 



, sp_ , m_ , o_ , d_ 



,nl 



t.Mt.*tt.»»«..Mtt*.t»««t..«*.*«*t..t*t.M.ttt«..ttttt»»M» 



curses : 



turnof f 



push af 
push be 
push hi 
Id a, (cstat) 

or a 

jp z , turnon 

Id a. (cchar ) 
Id hi , (curse) 



cursor blinker, handles 250 ms Interrupt. 



cstat-O > cursor 'off. character at cursor pos . 
cstat - 1 > 'on'; character saved In cchar 

If off, turn on 

If on. get character from storage 
find out where the cursor Is 



turnon: 



home: 



Id (hi >.a 

xor a 

Id (cstat).i 

j p home 



Id hi , (curse) 
Id a. (hi ) 
Id bc.cchar 
Id (be). a 
Id a.OSfh 
Id (hi ),a 
Id a.Olh 
Id (cstat).a 

pop hi 
pop be 
pop af 
el 
ret 1 



and write the character there 

a - O 

clear cursor status. 

return 



find the cursor 

get the character there 

character storage address 

store the character there 

an underscore (the cursor) 

put it on the crt 

a - 1 

set cursor status « 'on' (1) 



Turn those Interrupts back on! 



End curses 



cursof f : 



push af 
push hi 
Id a.043h 
out (Of7h).a 
Id a. (cstat) 
or a 

jp z.donoff 
Id a, (cchar ) 
Id hi , (curse) 
Id (hi ).a 
xor a 
Id (cstat). a 



donof f : pop hi 
pep af 
ret 



turns cursor off by stopping counter, making sun 

that screen displays character 1n the cursor 

pos 1 t Ion. 

etc command to stop counting 

f7 Is etc port 3 (cursor counter) 

find out what state the cursor was In 

cursor already off, so Just quit 

cursor was on. so get character from storage 

find the cursor 

put 'er there! 

now clear the cursor status bit' 



bye! 



End cursoff 



cur son: 


push af 




Ida, (cstat) 




or a 




J p nz , donon 




Id a.Oc7h 




out (Of7h),a 




id a.tau 




out (0f7h).a 


donon: 


■ pop af 




el 




ret 



turns the cursor on. 
was It on already? 

If so, quit. 

If not, set etc to go 

tau » time constant In ms (Of ah » 250 ms) 



Just to make sure, enable Interrupts 



End cur son 

ttn»tt»ttm)tnt«<».*ttl<ttm«ttn 



scrol 1 : push af 
push be 
push de 
push hi 
call cursoff 



scroll moves everything up one notch on crt. 
without bothering the cursor position. 
In fact. It turns the cursor off, so user must 
be sure to turn It back on sometime. 



Id bc.OSOh 
Id da . up 1 f t 
Id hi , scdlna 
cal 1 repeat 
pop hi 
pop da 
pop be 
pop af 
rat 



80 columns par row 

uppar laft corntr of visible screen ar 

next position down 

moves everything below DE up one 1 In* 



************************* **********»**»»»»»* 



repeat : 



ldlr 

Id bc,030h 

add hi .be 

push hi 

ex da. hi 

add hi ,bc 

ex do, hi 

pop hi 

Id be. 050h 

Id a.h 

cp hlbot 

Jp nz, repeat 

Id hi .botlf t 

Id de.botlfl 

Id (hi), 020h 

ldlr 

ret 



(de) < (hi), hl++. de++, be — till bc-O. nifty! 
enough to get to start of next line. 

tuck 1 t away 

now lets do It to de 

did It! 

back to de 

retrel ved . 

80 columns, as before. 

going to see If we are done yet 

3dxx Is beyond the last row 

If not there, do some more. 

left of bottom line 

next position 

put a blank In the left position 

propagate It across the row. 



. * ** + 



ena re 

************************* 



End repeat 

'*+****************** 



keylnr : 



push af 

push be 

push hi 

In a, (keybrd) 

cp 04 

jp z.keysoft 

cp 018h 

jp z.keyhard 

cal 1 putcrt 

Id c , a 

Ida. (kbwptr ) 

Inc a 

and kbfsze 

1d(kbwptr).a 

Id hi . kbdbuf 

add a. 1 

Id 1 ,a 

Id (hi ).c 

Id a, 1 

Id (keyflg).a 

pop hi 

pop be 

pop af 

el 

retl 



Handles Interrupts by the keyboard 



Reads keyboard port 

If EOF. 

soft restart (monitor) 

if CAN. 

cold restart (loc OO) 

Try to write It to the CRT 

Tuck 1 t away 

Keyboard 'write' pointer offset 

next position Is where to write 

modulo kbfsze (size of keyboard buffer) 

start position of buffer OdOO) 
add offset 

put character In buffer 

keyboard ready flag - there's something In 

the buffer. 



enable the Interrupts 



key soft : 



Id hi .monitor 



keyhard: 



push hi 
retl 

Id hi .O 
push hi 
rati 



End keylnr 



pstrng: 

push af 

strglp: Id a, (hi ) 
cp O 

jp z.strgrt 
call putcrt 
Inc hi 
jp strglp 

strgrt: pop af 
ret 



Put ASCII string found In location HL 
to CRT until 'O' byte encountered 

look at each character 
The null character 
quit when zero encountered 
Else write It to CRT 
next one 



End pstrng 

>***»****»**********************»»,*«»»«„„„„, 



pthxch: 



push hi 

cal 1 hexchr 

Id a,h 

cal 1 putcrt 

Id a. 1 

call putcrt 

pop hi 

ret 



End pthxch 

********** ********************»»****„«,,,*„ 



Puts hex number to CRT as two ASCII character 

returns two ASCII chars In H.L 
High one 



ldsv: 



ex da, hi 

pop hi 

ex (sp).hl 

push de 

Id de. 15 

ex de , h 1 

cal 1 ccdl v 

Inc e 

Id d, 1 

Id c.h 

pop h I , 

Ida. (dskld) 

cp c 

jp nz,ermsg4 

Id a.d 

out (dskdta). 

Id a. SEEK 

out (dskcmd), 

call waltdk 



Preparation for disk read or write 

Save address 1n DE (stolen from SMW) 

That's the subroutine return address 

pops Tnode from stack and pushes return address 

Also save the from/to address on stack 

Number of sectors per track 

our divide routine divides de/hl 

From Z-SO 1 Ibrary 

1 + remainder - sector 

now track ■ d 

c - disk number (use O as default) 

now HL contains the address 

The current disk 1d. possibly loaded by hand 



abort w message 



If not right disk. 

The destred track 

Load to disk data register 

SEEK - Olfh, the seek command 

send It to controller 

Walts for disk controller to interrupt 



In a, (dskcmd) 

and OIBh 

Jp nz.ermsgS 

ret 



get status 

look at CRC or seek errors 



ermsg5 : 
erdata : 



Id hi , msg5 
cal 1 pstrng 
Id a.d 
call pthxch 
Id a , e 
call pthxch 
jp monitor 



"Seek error " 

track 

sector 



msg5: db 053h. 065h. 065h. 06bh. 020h, 065h. 072h, 072h. 06fh, 020h. 



*********************,! 
save : 



pop be 
pop de 
push be 
push de 
cal 1 Idsv 

cal 1 cursof f 
call keyoff 
Id a,Ob7h 
out (mscnt 1 ) , , 
Id a. Of eh 
out ( mscnt l).i 
Id a,014h 
out (mscnt 1 ) . i 
In a. (mscto) 
Id a.e 

out (dsksct).i 
Id b, Offh 
Id c.Od3h 
Id a.WRSCTR 
out (dskcmd) ,i 
ca 1 1 wai tdk 
cal 1 curson 
cal 1 keyon 
tn a, (dskcmd) 
and 07ch 
jp nz,ermsg7 
ret 



ermsg7: 



Id hi ,msg7 

cal 1 pstrng 

Id a.d 

cal 1 pthxch 

Id a.e 

cal 1 pthxch 

jp monitor 



End ldsv 

*********************** 

Writes one block to disk 

given address In HL , and Tnode second on 

stack . 

Return address 

Tnode 

Save the return address 

Give next routine Tnode In stack 

Common disk IO program unravels Tnode and gets 

to right track on right disk (or aborts) 

Don't want Interrupts during write. 

Same reason. 

enable PIO Int; 'or' logic; active high; mask follows 

Mask al 1 but DO. 

Vector — > dskout Interrupt handler. 

clears PIO ready signal . 

E should contain sector number 

put that In disk sector register 

Prevents B from decrementing to zero in 'dskln' 

set C to controller data port 

write sector command (Oa8h) 

to the command register 

Now just sit back and wait for disk to finish 

Let 'er blink again 

and listen to the keyboard. 

get controller status 

mask the wr 1 te-pert fnent bits 

Print wrlte-error message If any bad bits 

otherwise, return 



msg7 



"disk write error" 



should contain Tnode 
write It to CRT 
lower byte 



msg7: db 044h, 069h, 073h. 06bh, 020h. 077h.072h. 069h 074h 065h 
db 020h. 065h. 072h. 072h. 06fh, 072h. 020h. O 



End save 



;»***************»***»************«******»*»***»****»♦**♦*♦«» 



keyon: 



push af 

Id a.anablt 

out (keyprt).a 

pop af 

ret 



Turns on the keyboard 



keyof f : 



Turns off keyboard 



push af 

Id a .disable 

out (keyprt).a 

pop af 

ret 



»» l »*t„» < ,«»«»,,«*, M »»« < ,,«,»,„„,„,,,„„,„ 1 , l ,,,,, :M#ttJ 



dskout : 



outl 

In a, (mscntl ) 

el 

retl 



Disk output Interrupt handler. 

NOTE: this has to be FASTI 

INPUTS: HL contains the address to be written 

from. C contains the disk controller data port. 

B should be written to a high value to prevent 

It from decrementing to zero, which would 

set the "z" flag and screw up the dkwalt 

routine. 

(HL) > (C); Inc HL; dec B 

clears the PIO Interrupt. 



end dskln 



load: 



pop be 

pop de 

push be 

push de 

cal 1 ldsv 

cal 1 cursof f 

cal 1 keyof f 

Id c.Od3h 

Id a,Ob7h 

out (mscntl ) .a 

Id a.Ofeh 

out (mscntl ) ,a 

Id a.012h 

out (mscntl ) . a 

in a, (mscto) 

Id a.e 

out (dsksct).a 

Id b.Offh 

Id a.RDSCTR 

out (dskcmd).a 

cal 1 wai tdk 

cal 1 cur son 

cal 1 keyon 

In a.(dskcmd) 

and Olch 

cal 1 nz.erprnt 

jp nz , ermsgG 



Reads a sector to memory specified In HL 
from disk at Tnode, contained 1n stack 

First exhange the first two stack positions 



Finds the right track and disk, and unravels Tnode 
We don't want Interrupts during disk read. 
Don't want keyboard Interrupts, either. 
Setup C for the "diskln" Interrupt handler, 
enable Int. 'or' logic, active high, mask follows 

Mask all but DO. 

vector to "diskln" 

Do a read to set ready flag. 

E should contain the sector number 

load 1t In controller sector register 

B will decrement and affect flags at O. 

command to read a sector (~ OB4h) 

to command port 

wait for execution 

restart cursor - Interrupts OK now. 

get status 

Mask CRC and lost data bits 

print disk read-error message if bad bits 



ermsg6 : 



Id hi ,msg6 

call pstrng 

Id a.d 

cal 1 pthxch 

Id a.e 

cal 1 pthxch 

jp monitor 



else done - return 
"disk read error " 
Track 
sector 



n»sg6 : db d_ , i _ , s_ , k_ , sp_ . r _ , e_ , * 
db t_ . r_ , a_ . c_ , k_ . sp_ . s_ 



- • c '— • 8 P_ • •_ • r _ . •"_ t o_ , r 



,n1 



end 1 oad 



dskln: 



Inl 
nop 

el 
rati 



Interrupt handler for disk reads. 

NOTE: this routine must go FASTI 

INPUTS: HL contains the start address to be 

loaded to. It will be Incremented each call. 

C contains the Input port address. 

B will be decremented each time, so 

Flag register will be affected when 

B becomes O. This may interact with calling 

program. Set B to 'FF' before starting to 

minimize this. 

Input (C) and inc HL . (IS cycles) 

(4 cycles) This is needed temporarily to 

prevent bad memory read of 'ff. 

(4 cycles) 

(14 cycles) resets PIO without reading It. 



end disk In 



dsklo: Id a.c 

Id (rwflg).a 
cal I gtprms 

dsklol: Id hl.(endloc) 
Id a. 1 
or a 

Jp nz.wdskl 
Id 1,1 
Id (endloc).hl 

wdskl: Id hl.(tnode) 
push hi 

id hi . (strtlc) 
Id a, (rwf lg) 
or a 
jp z . rd 
cal 1 save 
jp mop 

rd: cal 1 load 

mop: Id hl.(endloc) 
dec 1 
ret z 

Id (endloc).hl 
Id de.OIOOh 
Id hi . (strtlc) 
add hi ,de 
id (strtlc), hi 



ENTRY: dsklol for uboot operat lon.el se dsklo 
INPUT: C contains read/write flag (O-read). 
Common routine to read/wr 1 te 'endloc' blocks 
from/to disk to/from memory beginning at 
'strtlc'. The disk sectors are sequential, 
beginning at remainder of t node/ 15 +1 
on track tnode/15 low byte. 
If endloc - O or 1, a single block is written 

just set endloc - 1 If It was zero on input 

'save' and 'load' expect tnode In stack 

and starting address in HL. 

C contains a write/read flag ( O - read) 



Writes a block to disk 

Reads a block from disk 

mopup: see 1 f we are through 

reduce number of blocks left to go by one 

go home 1 f done 

resave endloc if not done. 

add 256 to the start location 



Id hi, tnode 

Inc (hi) 
Jp wdsk 1 



: prepare to Increment tnode (for next 
sequential block) 

: then do It again 



End dsklo 

**..»**».»«»,»« t ,,»„ t ,«,, t< ,„„,„ t , t(tMttt<it<tt(t 



waltdk: 



push af 
Id a,7 



wa 1 tdk t : 



wa1tdk2: 



dec a 

jp nz.waltdkl 

Id b.Offh 



In a, (dskcmd) 

and 1 

Jp nz.wa1tdk2 

pop af 

ret 



waits till disk Is through with whatever. 

setup 49 microsecond wait, so controller 
status will be valid after command. 

This loop kills 7 microseconds per pass 

B Is decremented (but not tested) In disk 
Interrupt routines (disk In, slskout). We 
write B to ff to prevent a 'z' condition 
In the flag register In case the Interrupt 
occurs during the "and" operation. We may 
therefore miss the resetting of the 'busy' 
status bit for one loop, but no matter. 

now start looking at controller status register 
LSB Is the busy bit 
loop If still busy 



***************** 
ccdl v: 



End waltdk 

>*******************»* 



Id b,h 
Id c, 1 
Id a,d 

xor b 

push af 

Id a.d 

or a 

cal 1 m.ccdeneg 

Id a,b 

or a 

ca 1 1 m . ccbcneg 

Id a, 16 

push af 

ex de.hl 

Id de.O 
ccd 1 v 1 : add h 1 , h 1 

cal 1 ccrdel 

Jp z,ccdiv2 

ca I 1 ccmpbcde 

Jp m,ccd1v2 

Id a, 1 

or 1 

Id 1 ,a 

Id a, e 

sub c 

Id e, a 

Id a.d 

sbc a . b 

Id d.a 
ccd 1 v2 : pop af 

dec a 

Jp z.ccd1v3 



; Divides DE by HL. returns quotient 1n HL 
; with remainder In DE . (signed divide) 
: from "runtime Library for Small C Compiler 
;by Ron Cain 



ccd! v3 : 



push af 
Jp ccdlvl 

pop af 

ret p 

ca 1 1 ccdenag 

ex da, hi 

ca 1 1 ccdenag 

ex da, hi 

rat 



ccdenag: Id a,d 
cpl 
- Id d.a 
Id a. a 
cpl 

Id e, a 
tnc da 
ret 

ccbcneg: Id a.b 
cpl 

Id b.a 
Id a.c 
cpl 

Id c.a 
Inc be 
ret 



negates the Integer In OE 



negates the Integer 1n BC 



ccrdel : 



Id a 
rla 

Id e, 
Id a, 
rla 
Id d, 
or a 
ret 



Rotate DE left one bit 



centpbede : 1 d a . c 
sub c 
Id a.d 
sbc a , b 
ret 



wtape : 
rdtape : 



ret 

ret 



compare be to de 



: dummy tape write program 
: Dummy tape read program 



logo: db 04ch. 041h. OS4h. 027h. 073h. 020h 
db Q46h. 06fh, 06ch. Q6ch. Q79h. Oh 



vectab : 



org 0900h 
dw keylnr 
dw vcterr 
dw vcterr 
dw vcterr 
dw vcterr 
dw vcterr 
dw 1 1 ma 1 n 
dw curses 
dw vcterr 
dw dskln 
dw dskout 



origin of vector table for Interrupts 

OO > keyboard Interrupt 

02 > tape output - not Implemented yet 

04 DMA controller - not supposed to Interrupt 

06 > tape Input - not Implemented yet. 

CTC channel O - shouldn't Interrupt. 

CTC channel 1 - not defined yet. 

t 1 msr channe 1 . 

cursor Interrupt. 

PIO Interrupt - formerly DISK controller. 

PIO for disk Input operations. 

Same PIO for disk output operations 



OS 
Oa 
Oc 
Oe 
10 
12 
14 



vcterr : 



push hi 

Id hi , msg8 

call pstrng 

pop hi 

ei 

retl 



routine to handle strange vectors from Interrupts. 
"\nunknown Interrupt vector\n" 

enable Interrupts 



fflsgB: db nl_,u_,n_.k_.n_.o_, w_,n_,sp_. i_,n , t ,e ,r ,r ,u p t sp 

dD v _ • •_ . c_ . t_ . o_ , r_ , n 1 _ . O ~ _ _ ~ ' 

end vectab 

***************************************************** 



ERROR MESSAGES 



ernsg4 : 



msg4 : 



'Wanted disk/Found disk: 

desired disk was In A 
Loaded disk In C 



Id hi ,msg4 

cal 1 pstrng 

cal 1 pthxch 

Id a.c 

cal 1 pthxch 

jp monitor 

db 057h. 061h. 06eh, 074h. 065h. 064h. 020h. 064h, 069h. 073h OSbh 

db 02fh. 046h. 06fh. 07Sh. 06eh. 020h. 064h. OG9h 073h OGbh" 

db 03ah. O20h, O 

format: A disk formatting program for 8" 

single density single side disk. 



i»t*»t,»» t »» M ,»»»„ M ,„„„ t „,„, t , MMt>t%t(( 



format : 

cal 1 restor 

Id d.O 
nxtrk: call trkfmt 

cal 1 cursof f 

cal 1 keyof f 

Id a.Ob7h 

out (mscntl ) ,a 

Id a. Of eh 

out (mscntl), a 

Id a.014h 

out (mscntl ) , a 

1n a, (msclo) 

Id c.Od3h 

Id hi , FMTBLK 

id a.Of4h 

out (dskcmd), a 

call waltdk 

cal 1 cur son 

ca 1 1 keyon 

1n a. (dskcmd) 

and 044h 

cal 1 nz.erprnt 

Inc d 

Id a. 77 

cp d 

ret z 

Id a,06bh 

out (dskcmd), a 

cal 1 wal tdk 

In a, (dskcmd) 



************** 



sets disk to track O 

D will contain the track No. 

generates track format Info In memory 

beginning at FMTBLK 

eliminate cursor Interrupts while writing. 

and keyboard Interrupts, too. 

enable PIO Int; 'or'; act. high; mask follows. 



Disable al 1 but DO. 
vector to "dskout" 

one read to clear ready flag 

set C to controller data port 

start of data block for Format routine 

f4 - write track (format) 

waits for controller to be done. 

OK to get Interrupts now 

get status 

mask lost data or write protect 

If error, print registers 

next track 

last track » 76 

done 

Step in. update register, no verify, load 



get status 



and OlOh ; look for "seek error" bit 

call nz. erprnt ; prtnt registers If error 
jp nxtrk j do another track 



*************************»*„„,, 



************ 



trkfmt: 



t 7t£ n VLf°r mats , 1 track of ***** according to IBM 3740 format 
with 256 bytes/sector. 

INPUT: register d contains track No. 



Id hi .FMTBLK 
Id b,40 
Id a.Offh 
call bload 
id b,6, 
Id a.O 
cat 1 bload 
Id (hi ).Ofch 
tnc hi 
id b.26 
id a.Offh 
call bload 
Id c, 15 

sect 

Offh 

Offh 



cal 1 
Id b 
Id a 



call bload 
ret 



Beginning of block storage to keep track Info 

40 (decimal) bytes to be loaded 

A - what to load (ff) 

writes 'B' bytes of (A). Incrementing hi 



6 'O's 

fch - Index mark 

point to next location 



26 'ff's 

want to write 15 sectors/track 

writes (C) sectors 



write a bunch of ff's till timeout 



end of trkfmt 

*****♦♦****************»***,«,,»»»»,„,,,,,„,,„ 



sect writes (C) sectors worth of Info Into memory 
INPUT: C Is no. of sectors to write (destroyed) 
D Is track No. (kept) 



Id b.6 

Id a.O 

call bload 

Id (hi ).Ofeh 

Inc hi 

Id (hi ).d 

Inc hi 

id (hi ),0 

Inc hi 

ca 1 1 secno 

Id (hi ),a 

inc hi 

Id (hi). 1 

Inc hi 

Id (hi ).Of7h 

tnc hi 

id b. 11 

Id a.Offh 

cal 1 bload 

Id b.6 

Id a.O 

cal 1 bload 

Id (hi ),Ofbh 

Inc hi 

Id b.O 

id a.OeSh 



bload writes (B) bytes of (A), incs hi 
ID address mark 

track no. 

side no. (always O) 

returns a sector no. In A, given C and D 
load sector no. 

sector length (1 -> 256 bytes) 
f7 writes 2 CRC's 



11 ff's 



6 O's 

data address mark 

setup for 256 bytes of e5 



cal 1 bload 

Id (hi ).Of7h 

1nc hj 

Id b.27 

Id a.Offh 

cal 1 bload 

dec c 

jp nz.sect 

ret 



actual data field loaded w/ e5 
2 CRC's 



27 ff's 

next sector 

do 1 t aga 1 n 

else done, return. 



end of sect 



secno returns a sector No. In A. given a sequence no In C 
and a track no. In D. 



INPUT: reverse sequence No. In C (kept) 
track No. In D (kept) 



push hi 

Id a.d 

and I 

jp z.even 

Id b.O 

Id hi . oddlst 

add hi .be 

Id a. (hi ) 

pop hi 

ret 

Id b.O 

Id hi ,evnlst 

add hi .be 

Id a, (hi ) 

pop hi 

ret 



track No. 

look at lowest bit 

odd or even? 

If odd. look at odd) 1st 

sequence for odd tracks 

offset by sequence No. 

get that value 

restore 

done 



even track No. 
SO USE even 1 1st 
add offset of seq. 
get It. 



No. 



oddlst: db Of f h. 14. 13 . 12. 1 1 , lO. 9.8. 7 ,6 5 4 3 2 1 15 
evnlst: db Of f h, 14 . 13. 12 . 1 1 . 10.9.8. 7.6. s] 4 \ s\ 2 \ 1 \ 15 



end of secno 



bload loads (B) locations wlth(A) In memory beginning 
with (hi). Incrementing hi as It goes, b I -O 



bload: 



Id (hi ).a 

Inc hi 

dec b 

jr nz, bload 

ret 



end of bload 



restor: ; sets disk to track O 

push af 
id a.Obh 
out (dskcmd).a 



restore, slowest stepping speed, loads head 
write to command register 



call waltdk 

In a. (dskcmd) 

and 01 Oh 

call nz.erprnt 

Id a.OdOh 

out (dskcmd), a 

pop af 

ret 



wait for controller to Interrupt 

look for "seek error" bit 

print error If found 

Controller reset (force Interrupt) 



*************************«**,»***** 



srprnt : 



prints registers and return address 

preserve a register 

prints contents of A register 



push af 

cal 1 pthxch 

Id a,h 

call pthxch 

id a. 1 

call pthxch 

Id a.b 

call pthxch 

Id a.c 

call pthxch 

Id a, d 

cal 1 pthxch 

Id a.e 

cal 1 pthxch 

Inc sp 

Inc sp 

ex (sp).hl 

Id a.h 

cal 1 pthxch 

Id a. 1 

call pthxch 

ex (sp).hl 

dec sp 

dec sp 

pop af 

ret 

Dskdly delays for 7 x VY microseconds at 2 rohz 
or 3.5 x VY at 4 mhz . 



print H and L registers 

print B register 

print C register 

print D register 

print E register 

look at return address 

put it In hi and save hi In stack 

print high byte of return address 

and low byte 

restore the return and hi 

restore the sTACK POINTER 



This is "YY" 



dskdly: 

push af 
Id a. 16 

d 1 y 1 : dec a 

Jp nz.dlyl 
pop af 
ret 



******************* **************** 
RAM Definitions 



dataorg O40OOh 

addr : dw Oh 

keyf 1 g : db Oh 

kbfptr: db Oh 

kbwptr: db Oh 

curse: dw Oh 

cstat; db Oh 

cchar : db Oh 

dskrdy : db Oh 



; place to store the address from keyboard 

; flag set when keyboard Is depressed 

; offset for reads from keyboard buffer 

; keyboard entry pointer 

; address of cursor 

: status of cursor (on - 1, off - o) 

; storage for character under cursor 

; disk ready flag 



tlmflg: db 


Oh 


strtlc: dw 


Oh 


•ndloc: dw 


Oh 


tnoda 


dw 


Oh 


tempi 


db 


Oh 


dskld 


db 


Oh 


trf lg 


db 


Oh 


tpbuf 


db 


Oh 


stpf lj 


j: db 


Oh 


kbdbuf 


: ds 


64 


rwf lg: 


db 


O 


crtmoc 


1: db 


O 


rowno : 


db 






timer flag 

starting memory location for transfers to 10 

end memory location, or number of blocks fo IO 

I NODE for disk or tape 

just a utility spot 

the loaded disk Id 

tape read flag 

single byte tape buffer 
danged If I know what that Is I 

keyboard buffer (64 bytes) 

disk read/write flag. 

Mode of CRT 

row address variable, for direct cursor add. 



\t -> 




"D 



BIOS PROGRAM 

FOR Z-80 MICROPROCESSOR 
by 

L. A. TOMKO 



equates : 



sp_ equ 020h 

nl_ equ Odh 

arap_ equ 040h 

ESC equ Olbh 

ESCMOO equ 1 

INSMOO equ 8 

ROWMOD equ 3 

COLMOD equ 4 

spbase equ Oafffh 

tau equ Ofah 

crtwrds equ OSOOh 

crtram equ ObOOOh 

endcrt equ crtram ♦ (2 * 

botln equ crtram ♦ OdOOh 

hlbot equ botln/OIOOh ; 

botlft equ crtram ♦ OcSOh 

uplft equ crtram + OSOh j 

scdtne equ crtram + OlOOh 

botlf 1 equ botlft ♦ 1 

kbfsze equ 31 

keyprt equ Od6h 

kbvctr equ Oh 

pmodO equ Ofh 

pmodl equ 04fh 

enable equ OS3h 

disable equ 3 

dskdta equ Od3h 

dsksct equ Od2h 

dsktrk equ Odlh 

dskcmd equ OdOh 

DSKRST equ OdOh 

SEEK equ Oleh 

UNLOAD equ 012h 

RESTORE equ Oah 

WTRK equ Of4h 

DMA equ OcOh 

WRSCTR equ OaBh 

RDSCTR equ 080h 

keybrd equ Od4h 

mscntl equ 0d7h 

msclo equ Od5h 

RAM equ Of2h 

ROM equ Of3h 

t2 equ Of6h 

FMTBLK equ 060OOh 

CPLDST equ OcOOOh 



(fa - 250) 



' space ' 

'newl Ine' 

ampersand (•) 

ESC character 

CRT ESCAPE mode 

CRT INSERT mode 

CRT ROW mode 

CRT COLUMN mode 

where to start the stack 

cursor blinker time constant. In ms 

number of 2-byte words In CRT RAM 

beginning of CRT RAM 
crtwrds) - 1 ; last of CRT memory 

; the line below the bottom line on the CRT 

h<9h byte of bottom line 

: lower left of screen 

Upper left of visible screen 

l Second line of the crt 

next space after bottom left of crt 

keyboard buffer size (32) -must be power of 2 

I/O control port for keyboard PIO 

keyboard Interrupt vector 

sets a PIO to mode O (output) 

sets a PIO to mode 1 (Input) 

enables PIO Interrupts 

disables PIO Interrupts 

Disk data register (IO port) 

disk sector register (IO port) 

Disk track register (10 port) 

Disk command or status (IO port) 

Reset Disk Controller Command 

track seek command for disk, with verify 

SEEK without head load or verify (no stepl) 

Restore command for disk, IO ms step 

Write Track Command for disk 

DMA controller 

Write sector command 

Read sector command, no 15ms delay. 

keyboard data port 

misc. PIO control port 

mlsc PIO data port 

RAM turnon port 

ROM turnon port 

timer 2 

start of block data for format routine 
Cold Start location for UNIX. 



org OalOOh 
reboot: dl 

1m 2 

Id hi .crtwrds 



starts at AlOO. which is supposedly safe 

Interupt mode for z-BO peripherals 
number of 2-byte words In the CRT RAM 



6* L "I 



d 






cl« 



Id sp.endcrt 

Id de,02020h 

push do 

dec hi 

Id a.h 

or a 

Jp nz, clear 

Id a. 1 

or a 

Jp nz, clear 



last location of the CRT RAM 

two ASCII 'blank's, on* In each byte 

writes two 'blanks' to consecutive CRT locations 

looking for hl-O to stop clearing CRT RAM 

test upper byte first 

to make the flags appear 

certainly not through If upper byte Is > O 

now look at the lower byte 

If both are zero, we are done with clearing CRT 



Enable the plo chip and the Interupts 



Id a, pmodl 
out (keyprt).a 
Id a.kbvctr 
out (keyprt).a 
Id a, enable 
out (keyprt).a 
In a.(keybrd) 



pmodl » 4f, sets the p1o to mode 1 (Input) 
keyport Is the control port for keyboard plo 
the Interrupt vector for the keyboard (-Oh) 

enable - OB3h, enables port Interrupt 

do one read to set 'ready' output. 



Initialize 1 ms timer. 



Id a.07h 
out (Of4h).a 
id a, Of ah 
out (Of4h).a 
Id a.OSh 
out (Of4h).a 



sets timer mode, non- Interrupting, prescale/16 

f4 Is etc channel 0. 

time constant of 250 counts - 1 ms total 



etc vector (s) 8 + counter # 



out (Ocfh).i 



; Set single density for floppy controller 



Initialize PIOB. Port B for miscellaneous Interrupts, Including disk 



Id a, Ocfh 

out (mscntl ) .a 

Id a. 1 

out (mscntl), a 

Id a,037h 

out (mscntl), a 

Id a, Of eh 

out (mscntl), a 

Id a.OIOh 

out (mscntl). a 

In a, (msclo) 



Mode 3 - bit I/O 

PIOB, Port B control 

DO only Is Input - all else - outputs 

disable Interrupt, active high, mask follows 
(This Initialization Is repeated In disk routines) 
Mask all but DO. 

vector 

do a read to set 'ready' output. 



xor a 

Id (keyflg).a 
Id (kbwptr).a 
Id (kbfptr).a 
Id (cstat).a 
Id (dskld).a 
Id (crtmod).a 
Id hi .crtram 



misc. Initialization 



Initialize keyboard flag - off 

keyboard write pointer 

keyboard read pointer 

start with cursor status • off. 

default disk ID Is CO 

CRT mode - normal 

beginning of CRT RAM 



Id bc.0200h 

add hi .be 

Id (curst), hi 

cal 1 cur son 

Id hi , vmctab 

Id a.h 

id l.a 



Id bc.Ofh 
Id de.OcOS7h 
Id hi .xfrtbl. 
ldlr 



offset for the Initial cursor position 

start the cursor blinking 

the vector transfer table address Is vectab (I hope) 

need upper byte In a to load reg. I. 

load the high byte of vector table 



Load the BIOS jump table. 
That's where It goes. 
That's where It comes from. 



monitor: 



monl 



mon2 i 



fflonS : 



Id sp.spbase 

call dskdly 

Id a.OSKRST 

out (dskcmd). 

Id a.nl_ 

call putcrt 

el 

Id hi .monl 

push hi 

retl 

Id hi ,mon2 

push hi 

retl 

Id hi . mon3 

push hi 

retl 

nop 



reload the stack pointer . 

wait a few u-seconds for controller clear 

Reset controller, abort any commands. 



K 



a 'cr' on the crt 



irlnt 

n 

enable the system Interrupts. 

This next little operation clears peripheral devl 
that may have pending Interrupts acknowledged but 
not cleared with a "retl- command. Each Iteration 
clears only one device, so we will do three lust 
to be sure! 



******* should J 
jp COLOST 



to operating system from here.***** 

; operating system entry (cold start). 



putcrt writes a character (found In a) to the crt 
much like a serial terminal. 



putcrt : 



push af 
push be 
push de 
push hi 
cal 1 cursof f 

Id c.a 

Id a. (crtmod) 

and 7 

cp ESCMOD 

J p z , escape 

cp ROWMOD 

jp z.row 

cp COLMOD 

z , co I umn 

a.c 
cp ESC 
jp z.setesc 
Id a, (crtmod) 



jp 
Id 



Turn the cursor off. which replaces the character 

at the cursor location and prevents Interrupts 

save the character 1n C for a while 

Find state of CRT 

look at all but INSERT mode bit 

escape mode? 

Row mode? 

column mode? 

Now check for ESC character 

since not In ESCMOD. ROWMOD. or COLMOD 

If Char - ESC. set ESCMOD. 

reload crt mode to look at INSERT bit 



nu 1 1 o : 



eoln: 



cp INSMOO 

jp z. Insert 

or a 

call nz.audcrtl 

Id a.c 

and 07fh 

cp 020h 

jp m. special 

Id a.c 

Id hi , (curse) ' 

Id (hi). a 

Id a. 1 

cp 04fh 

jp z, eoln 

cp Ocfh 

jp z.eoln 

Inc a 

Id l.a 

Id (curse). hi 

cal 1 cur son 

pop hi 

pop de 

pop be 

pop af 

ret 

Id de.031h 

add hi .de 

Id (curse), hi 

Id de.botln 

Id a.d 

cp h 

jp nz.nul lo 

Id hi .botlft 

Id (curse), hi 

cal 1 scrol 1 

j p nu 1 1 o 



Insert mode. 

Any other mode Is an 

1 1 1 ega 1 CRT node 

restore character to A 

mask off reverse video bit 

check for special chars (< 20h) 
; handle those separately 
: restore again 
: pointer to cursor 
: that's where we will write, 
now. fiddle with the cursor. 

lower byte of cursor address 

that's eol for even rows 

return and scrol 1 

eol for odd lines 

1f not eol. Just Increment cursor address 
don't worry about carry - never occurs In line, 
update the cursor position 
Now turn the cursor back on before departing 



: bye I 

Just wrote last char on line, move cursor to 

beginning of next line, (by adding 31h) 

update the cursor position 

If cursor >- xdxx, we must scroll 

Just look at the upper byte 

otherwise, we'll Just return 

scroll needed - first set cursor to bottom left 

scroll moves everything up one. but leaves cursor 



special 



cp oaoh 
jp p.nul lo 
jp z.nul lo 

cp OBh 

jp z.backsp 

cp 09h 
jp z.tab 

cp Oah 
JP 2. If 

cp Och 
jp z.clr 

cp Odh 
jp z.cr 
J p nu 1 1 o 



: handles special characters, like tabs, spaces, etc. 
; Initially, If b1t7 - 1 we will just Ignore It. 

: backspace? 

• 

: tab? 

: 1 Inef eed? 

; formfeed (clear screen)? 

corral go return? 

don't know what It Is, so Just Ignore It. 



backsp: id hi. (curse) 
id a, 1 
cp Oh 
J p z . nu 1 1 o 



backspace moves cursor back, does not erase. 
stops backspacing at beginning of line. 





cp 


040h 




JP 


z , nu 1 1 o 


' 


dec a 




Id 


1 .a 




Id 


(curse), hi 


. 


JP 


nul lo 


tab: 


Id 


a.020h 




cal 1 putcrt 




Id 


hi , (curse) 




Id 


a. 1 




and 07h 




JP 


2. nul lo 




JP 


tab 


> 

If: 


Id 


hi , (curse) 




Id 


de.OBOh 




add hi .da 




Id 


a.h 




cp 


hlbot 




JP 


nz , nx 1 1 1 ne 




ca 


1 'scrol 1 




JP 


nul lo 


nxtl Ine 








Id 


(curse) .hi 


; 


JP 


nul lo 


clr: 


Id 


a. 26 


movup : 


call scroll 




dec a 




JP 


nz . movup 




Id 


hi .uplf t 




Id 


(curse) ,hl 


; 


JP 


nul lo 


cr : 


Id 


hi , (curse) 




Id 


a, 1 




cp 


07fh 




JP 


p. oddln 




Id 


1 .Oh 




Id 


(curse), hi 




JP 


If 


oddln: 


Id 


1 .OBOh 




Id 


(curse) ,hl 




JP 


If 



escape : 



Id 


a, (crtmod) 


and INSMOD 


Id 


(crtmod).a 


Id 


a.c 


cp 


'E' 


JP 


z.clr 


cp 


'K' 


JP 


z.clr Ine 


cp 


'L' 


JP 


z , 1 ns 1 ne 



not at beginning of line, so decrement. 



; put out spaces until cursor Is left at even '8' mult. 



; look at last 3 bits 

; done. 

; do 1 t aga 1 n 



; leaves cursor In same relative position. 

: adding 80h to cursor position puts It strt. down 

j however, 1f cursor >- 0300h, must scroll 

; compare bottom of screen (high byte) 

; If not below screen, reload cursor 

; scroll. won't change curse, so we Just leave It alone 

: gracefully return. 

j reload the cursor with the new value 



going to do 26 scrolls to clear the screen 

going to put cursor at top left 
graceful exit. 



return to start of line and do line feed 

look at the lower byte 

If greater than 7fh, we were on an odd line 

even line: return to O.(l) 

moves the cursor back to start of current line 
now do a line feed, note: routine returns 'cr' 
odd line: return cursor to xxSOh. 



previous character was and ESC 

clear all but INSERT mode bit 

look at the new character 

Home/Clear routine 

Clear to end of line 

Insert new line at cursor row 



7 












*M 



♦ 



*A l 



•V*' 






&S^ 



cp 'M' 

Jp z.delne 

cp amp 

Jp z. Insmde 

cp 'O' 

jp z. exmod 

cp 'N' 

Jp z.delchr 

cp 'V 

jp z, mvrow 

jp nul lo 



delate a line 

enter Insert mode 

(capital 0) 

exit Insert mode. 

Delete character at cursor 

; cursor row set 

: Ignore anything we don't understand 



clrlne 



clnl 



Id hi , (curse) 

Id a. 1 
cp 04fh 
Jp z.nut lo 
cp Ocfh 
j p z , nu 1 1 o 
Id a , sp_ 
Id (hi), a 
Inc 1 
Jp clnl 



Clears from cursor to end of line 
Gat cursor position 



EOL for even rows 

done 

EOL for odd rows 

Also done 

Not done, so write a blank 

at (hi) 

Next. . . 

do 1 t aga 1 n 



Inslns 
InsO: 



Insl : 



call crsbol 

Id de.botlft 

scf • 

ccf 

sbc hi ,de 

Jp z, clrlne 

Id hi .botlft-OSOh 

Id bc.SO 

Idlr 

scf 

ccf 

Id bc.OdOh 

ex de.hl 

sbc hi ,bc 

ex de.hl 

sbc hi .be 

Id be, (curse) 

Id a.e 

cp c 

jp nz. Insl 

Id a.d 

cp b 

Jp nz. Insl 

jp clrlne 



Inserts blank 1 Ine at current cursor 
line, moving lines below 1t down 
cursor to beglnlng of line. --> HL 

clear carry for 16-bit subtract 

Cursor at Bottom row? 
If so. Just clear the line. 
; Next row up 

SO columns 
moves 'em down 

clear carry flag 

enough to get to start of next line up 

first do DE 

subtract 



Going to see if the activity is at (curse) 
I f not . do some more 



blank the row If at cursor 



de 1 ne : 



call crsbol 
Id d.h 



Deletes line of cursor; moves lines below 
one up; blank line at bottom; cursor 
at beginning of deleted line, 
cursor to beginning of current line 
HL now has starting cursor position 



Id •. 1 
Id bc.OSOh 
add hi .be 
Id be. 80 
cal 1 repeat 
jp nul lo 



Next 1 In* bo low 

BO columns 

part of scroll: routine. 



crsbol ; 



crsbl : 



push af 

Id hi , (curs*) 

Id a-, 1 

cp 07fh 

jp p. crsbl 

Id I.O 

Id (curse), hi 

pop af 

ret 

1 d 1 . OSOh 

Id (curse), hi 

pop af 

ret 



Puts cursor at start of current Una 
returns position In HL 



If > 7f. oddllne 
BOL for even line 
reload It 



BOL for odd 1 In* - xx80 



1 nsmde : 



Id a.INSMOO 
Id (crtiKod).a 
J p nu 1 1 o 



Enter the Inseart mode 



Ida, (crtmod) 
or ROWMOD 
Id (crtmod). a 
jp nullo 



enter row address mode 

put rowmode bits In without changing Insert mode 



setesc: 



Id a. (crtmod) 
or ESCMOD 
Id (crtmod). a 
J p nu 1 1 o 



An ESC character has been received; set esc mod* 



axmod: 



xor a 

Id (crtmod), a 

Jp nul lo 



Exit Insert mode - clear everything 



d*lchr : 
delcl : 



Id hi . (curse) 

Id a. 1 
cp 04fh 
jp z,delc2 
cp Ocfh 
jp z,d*!c2 



D*1*t* character at cursor position. 
Move tex-t right of cursor left one slot, 



end of 1 Ine. even row 
end of lln*. odd row 



de1c2: 



Inc hi 
Id a. (hi ) 
dec hi 
Id (hi). a 
1nc hi 
jp delcl 

Id a , sp_ 
Id (hi). a 
Jp nul 1o 



get char, to right 
put It on* left 

Blank last character In row 



rowl : 



Id a.c 
cp 25 
jp m.rowl 
Id a. 24 

1 d ( rowno ) , a 
Id a.(crtmod) 
and INSMOO 
or COLMOO 
Id (crtfflod).a 
j p nullo 



load row register 

restore the character to A 

Only 25 rows 

OK if less than 25 

else set to max - 24 

save It for next time 

clear all but Insert mode bit 
concatenate Column mode bits 



column: 



col 1: 



COl 2; 



col 3; 



Id a, (crtmod) 

and INSMOO 

Id (crtmod), a 

Id a.c 

cp 80. 

jp m.col 1 • 

Id c.79 

Id de.OBOh 
Id hi .uplft 
Id a , ( rowno ) ' 
or a 
jp z.coia 

add hi , de 

dec a 

Jp nz.co!2 



id a.c 

add a , 1 

Id 1 .a 

Id (curse). hi 

J p nu 1 1 o 



expect column address 
clear all but Insert mode 



only 80 columns 

If less. OK 

else change C to 79 

Distance between rows 

upper left of screen 

Row number from previous read 

skip multiply If rowno - 

crude multiplication 

add A times! 

column offset 

add It to the hi (don't worry about carry) 



Insert : 



Id de. (curse) 

Id h.d 

Id a, a 

cp 0O 

Jp p. tnsrtl 



Inserts a character at cursor position 
Won't DVANCE BEYOND EOL 



> 80 — > odd 1 In* 



1nsrt 1 : 
1nsrt2: 



1nsrt3: 



1nsrt4: 



Id 1 ,04fh 
Jp 1nsrt2 

Id l.Ocfh 

Id a.e 

cp 1 

Jp z, 1nsrt3 

dec 1 

Id a. (hi) 

Inc I 

Id (hi). a 

dec 1 

Jp Insrta 

Id (hl).c 

Id a. 1 

cp 04fh 

Jp z, 1nsrt4 

cp Ocfh 

Jp z, 1nsrt4 

Inc hi 

id (curse), hi 
J p nu 1 1 o 



EOL for even 1 Ins 

EOL for odd 1 tne 

Are we back to cursor posit lomn yet? 

get character to left 
move It one right 



load the Incoming character there 
Now make sure we are not at the EOL 



If not. Increment cursor 
load cursor 



End of putcrt 



audcrt 1 



push af 

push hi 

Id hi .crtml 

call pstrng 

Id a. (crtmod) 

Id 1 .a 

xor a 

Id (crtmod), a 

Id a, 1 

cal 1 putcrt 

pop hi 

pop af 

ret 



1 1 1 ega 1 CRT mode 



load message address 

print It 

save the crt mode 



clear the crt mode to normal 
print the offending mode 



crtml: db 'Illegal CRT mode' .O 



hexchr : 



digit: 



push af 
push be 
Id b.a 
and Ofh 
cp lO 

Jp m, digit 
sub lO 
add a,061h 
Id l.a 
Jp thigh 
add a.OSOh 



Returns 2 ASCII characters In h and 1 
representing the hex byte In 'a' 

save byte 

look at lower nibble 

If < 10, must be O - 9 

must be > lO, so subtract lO. and add A 

'a' 

that's the lower character 

'O' ASCII 





Id 1 .a 


thigh: 


Id a.b 




rrc a 




rrc a 




rrc a 




rrc a 




and Ofh 




cp lO 




Jp m, d1g2 




sub IO 




add a.061h 




Id h.a 




Jp thru 


d1g2: 


add a,030h 




Id h.a 


thru: 


pop be 




pop af 




ret 



the saved byte 

rotate upper nibble to lower position 



same song second verse 



upper character 



****»*****».„**, «*«.»»**»»»»»*»♦*»*».**„,»,»,,,,,, 



curses : 



turnof f 



push af 
push be 
push hi 
Id hi .(curse) 
Id a. (hi) 
xor OSOh 
Id (hi). a 
Id a. (cstat) 

or a 

jp z.turnon 

xor a 

Id (cstat). a 

jp home 



cursor blinker, handles 250 ms Interrupt, 



Get the cursor position. 

Got the character there . 

Reverse-video that character 

and Write It back. 

cstat-O > cursor 'off, character at cursor pos. 

cstat - 1 > 'on'; character saved In cchar 



turnon: 



home : 



Id a.Olh 

Id (cstat), a 

pop hi 
pop be 
pop af 
el 
rati 



If off, turn on 



clear cursor status, 
return 



! a ■ 1 

: set cursor status- 'on' (1) 



Turn those Interrupts back on! 



End curses 



cursof f : 

push af 

push hi 

Id a. (cstat) 

or a 

Jp z.blnkck 

Id hi . (curse) 

Id a. (hi) 

xor OSOh 
.Id (hi). a 

xpr a 

Id (cstat). a 
blnkck: Id a. (blink) 



turns cursor off. making sure 

that screen displays character in the cursor 

position. 

find out what state the cursor was In 

cursor already off. so check blink status 

find the cursor 

Look at the character 1n the cursor position 

Toggte the reverse-video bit. 

put 'er there I 

now. clear the cursor status bit 

Is the Blinker activated? 



or a 

Jp z, donof f 

Id a.043h 

out (Of7h).a 

xor a 

Id (bltnk), a 



If not, return happily. 

•Isa Kill tha Cursor Counter! 



and Zero the Blinker status. 



donof f : pop hi 
pop af 
rat 



bye! 



End cursoff 

********** **************»***«****»*,„ 



curson: push af 
push hi 
Id a.(cstat) 
or a 

jp nz.ckblnk 
Id hi .(curse) 
Id a. (hi) 
xor 080h 
id (hi). a 
Id a. 1 
Id (cstat).a 

ckblnk: Id a. (blink) 
or a 

Jp nz.donon 
Id a.Oc7h 
out (Of7h).a 
Id a, tau 
out (Of7h).a 
Id a. 1 
Id (bl ink), a 



turns the cursor on. 

was it on already? 

if so. check for blinker status. 
Get cursor position. 
Get character at Cursor position. 
Toggle the reverse video bit. 
Put the toggled character back. 

Set the cursor status - ON. 

Check whether blinker Is activated. 

If so. Just return happy. 

else set CTC to start blinking. 

CTC address » f7. 

250 «s time constant (SCO ms at 2 mhz) 

The CTC Is expecting this output. 

Set blinker staus. 



donon: 



pop hi 
pop af 
ret 



End curson 

*•••**•*******»* ********,***»»,,,,*,»** 



scrol 1 



push af 
push be 
push de 
push hi 
call cursoff 
Id bc.OSOh 
Id de.uplft 
Id hi .scdlne 
cal 1 repeat 
pop hi 
pop de 
pop be 
pop af 
ret 



******»*♦*********»,**»,* 



scroll moves everything up one notch on crt 
without bothering the cursor position. 
In fact. It turns the cursor off. so user must 
be sure to turn It back on sometime. 

SO columns per row 

upper left corner of visible screen area 

next position down 

moves everything below OE up one line 



repeat: ldlr 

Id bc,030h 
add hi .be 



******************* 

(de) < (hi). hl++. de**. be— till bc-O. nlftyl 
enough to get to start of next line. 



push hi 

■x da, hi 

add hi .be 

ex da . h 1 

pop hi 

Id be, OSOh 

Id a.h 

cp hlbot 

Jp nz.rapaat 

Id'hl .botlft 

Id de.botlfl 

Id (hi ),020h 

ldlr 

ret 



tuck It away 

now lets do It to de 

did Itl 

back to de 

ret reived. 

80 columns, as before. 

going to see If we are done yet 

3dxx 1s beyond the last row 

If not there, do some more. 

left of bottom line 

next position 

put a blank 1n the left position 

propagate 1t across the row. 



End repeat 



keylnr : 



push af 

push be 

push hi 

In a, (keybrd) 

Id c.a 

Id a.(kbwptr) 

Inc a 

and kbfsze 

ld(kbwptr),a 

Id hi . kbdbuf 

add a , 1 

Id l.a 

Id (hl),c 

Id a. 1 

Id (keyflg).a 

pop hi 

pop be 

pop af 

el 

retl 



Handles Interrupts by the keyboard 



Reads keyboard port 

Tuck It away 

Keyboard 'write' pointer offset 

next position Is where to write 

modulo kbfsze (size of keyboard buffer) 

start position of buffer OdOO) 
add offset 

put character 1n buffer 

keyboard ready flag - there's something In 

the buffer. 



enable the Interrupts 



End keylnr 



pstrng: 

push af 

strglp: Id a. (hi) 
cp O 

Jp z.strgrt 
call putcrt 
Inc hi 
Jp strglp 

strgrt: pop af 
ret 



End pstrng 



: Put ASCII string found In location HL 
; to CRT until 'C byte encountered 

look at each character 
The null character 
qu 1 t when zero encountered 
Else write it to CRT 
next one 



pthxch; 



; Puts hex number to CRT as two ASCII characters 



returns two ASCII chars In H.L 
High on* 



push hi 
call hexchr 
Id a.h 
call putcrt 
Id a. 1 
coll putcrt 
pop hi 
rot 



End pthxch 



ldsv: 



ldsvl ; 



ldsvq: 



Id a. 5 

Id (dsktry).a 

ex de.hl 

pop hi 

ex (sp).hl 

push de 

Id de, IS 

ex de.hl 

call ccdtv 

1nc e 

Id d, 1 

Id c.h 

Id a.(dskld) 

cp c 

jp nz,ermsg4 

1n a.(dsktrk) 

cp d 

jp nz. ldsvl 

Id a.OdOh 

out (dskcmd), a 

call dskdly 

In a, (dskcmd) 

and 020h 

Jp nz. ldsvq 

Id a.d 

cp 77 

jp p.ermsgS 

out (dskdta).a 

call dskdly 

Id a. SEEK 

out (dskcmd). a 

call waltdk 

In a, (dskcmd) 

call dskdly 

and 018h 

jp nz. Idstry 

pop hi 

ret 



Preparation for disk read or write 
Setup for B tries to seek track 

Save address in DE (stolen from SMW) 

That's the subroutine return address 

pops Tnode from stack and pushes return addrc 

Also save the from/to address on stack 

Number of sectors per track 

our divide routine divides de/hl 

From Z-BO 1 tbrary 

1 ♦ remainder - sector 

now track • d 

c - disk number (use O as default) 

The current disk Id, possibly loaded by hand 

If not right disk, abort w message 

Find out where the head Is. 

compare with the desired track. 

SEEK If not on the right track. 

RESET controller to force Type I status 

Let controller clear 

Look at status 

look at Head Load bit. 

Head loaded; Right track: so quit, already 

else load the desired track 

Make sure track Is In range 

Abort with message If not. 

Load to disk data register 

Walt a few microseconds 

SEEK - Olfh. the seek command 

send tt to controller 

Walts for disk controller to Interrupt 

get status 

Walt a few microseconds 

look at CRC or seek errors 

return with r/w address In hi 



ermsgS : 
erdata: 



Id hi , msgS 
call pstrng 
Id a.d 
cal 1 pthxch 
Id a. a 
call pthxch 
jp reboot 



"Seek error 
track 



sector 



msg»: 



' Seek Error ' .O 



ermsg9: Id hi ,msg9 • "Track out of range" 
call pstrng ; 
Jp erdata ; Also print track and sector. 

msg9: db 'Track out of range '.0 

ldstry : 



Id a, (dsktry) 
dec a 

jp z.ermsgS 
Id (dsktry). a 
call restor 
Jp Idsvl 



save: 



try (dsktry) times to seek track 

Give up after (dsktry) tries, 
backup to track OO 



savel ; 



erntsg7 : 



pop be 
pop de 
push be 
push de 
call Idsv 

Id a.S 

Id (dsktry), a 

push hi 

call cursoff 

call keyoff 

Id a,Ob7h 

out (mscntl).a 

Id a, Of eh 

out (mscntl).a 

Id a.OMh 

out (mscntl).a 

In a.(msclo) 

Id a. a 

out (dsksct).a 

call dskdly 

Id b. Offh 

Id c.Od3h 

Id a.WRSCTR 

out (dskcmd).a 

ca 1 1 wa 1 tdk 

ca 1 1 curson 

ca 1 1 keyon 

in a, (dskcmd) 

call dskdly 

and 07ch 

Jp nz.savtry 

pop hi 

ret 

Id hi ,msg7 
call pstrng 
Id a.d 
call pthxch 
Id a,e 
call pthxch 
jp monitor 



End Idsv 

►***»♦**«•*»*»**»**»»»*„„ 

Writes one block to disk 

given address In HL, and Tnode second on 

stack. 

Return address 

Tnode 

Save the return address 

Give next routine Tnode In stack 

Common disk IO program unravels Tnode and gets 

to right track on right disk (or aborts) 

S tries to write 

save start address 1n case of abort 

Don't want Interrupts during write. 

don't allow keyboard to Interrupt 

enable PIO Int: 'or' logic; active high; mask follows 

Mask all but OO. 

Vector — > dskout Interrupt handler. 

clears PIO ready signal. 

E should contain sector number 

put that In disk sector register 

Walt a few microseconds 

Prevents B from decrementing to zero In 'dskln' 

set C to controller data port 

write sector command (OaSh) 

to the command register 

Now just sit back and wait for disk to finish 

Let 'er blink again 

and let the keyboard Interrupt 

get controller status 

Walt a few microseconds 

mask the wr 1 te-pertlnent bits 

Print wrlte-error message If any bad bits 

restore stack 

otherwise, return 

msg7 - "disk write error" 

should contain Tnode 
write It to CRT 
lower byte 



msg7: db 'Disk write error ',0 



savtry : 



Id a, (dsktry) 

dec a 

Jp z.ermsg7 

Id (dsktry), a 

pop hi 

push hi 

jp savel 



try (dsktry) times 



Gtve up 



recall the start address 

save It again. In case another retry 



End save 



keyon : 



push af 

Id a, enable 

out (keyprt).a 

pop af 

ret 



Turns on the keyboard 



keyoff.: 



Turns off keyboard 



push af 

Id a. disable 

out (keyprt).a 

pop af 

ret 



End keyon/keyof f 

********************************************************* 



dskout : 



outl 

In a, (fflscntl ] 

ei 

ret 1 



Disk output Interrupt handler. 

NOTE: this has to be FASTI 

INPUTS: HL contains the address to be written 

from. C contains the disk controller data port. 

B should be written to a high value to prevent 

It from decrementing to zero, which would 

set the "z" flag and screw up the dkwt.1t 

routine. 

(HL) > (C): Inc HL; dec B 

clears the PIO Interrupt. 



******************* 



end dsktn 

***********•*****♦»**********»**,*,,»»**»»»»»»» 



load: 



loadl : 



pop be 
pop de 
push be 
push de 
call Idsv 
Id a, 5 

Id (dsktry). j 
push hi 

call cursoff 
call keyoff 
Id c.Od3h 



Reads a sector to memory specified In HL 
from disk at Tnode, contained In stack 

First axhange the first two stack positions 



Finds the right track and disk, and unravels Tnode 
S tries 

Save start address In case of abort 

We don't want Interrupts during disk read. 

turn off keyboard, too 

Setup C for the "dlskin" interrupt handler. 





Id a.Ob7h ; 




out (mscntl ) .a 




Id a, Of eh ; 




out (mscntl), a ; 




Id a.012h ; 




out (mscntl), a ; 




in a . ( disc 1 o ) ; 




Id a. a ■ 




out (dsksct).a ; 




call dskdly ; 




Id b.Offh ; 




Id a.ROSCTR ; 




out (dskcmd).a ; 




can waltdk : 




call cur son ; 




ca 1 1 keyon ; 




In a.(dskcmd) ; 




call dskdly ; 




and Olch j 




Jp n*. ldtry ; 




pop hi ; 




rat • 


» 

•rmsg6 : 






call arprnt ; 




Id hi , msgS ; 




cal 1 pstrng ; 




Id a.d : 




call pthxch ; 




Id a. a 




call pthxch ; 




Jp reboot ; 



enable Int. 'or' logic, active high, mask follows 

Mask al 1 but DO. 

vector to "dlskln" 

Do a read to set ready flag. 

E should contain the sector number 

load It in controller sector register 

Walt a few microseconds 

B will decrement and affect flags at 0. 

command to read a sector (« OB4h) 

to command port 

watt for execution 

restart cursor - Interrupts OK now. 

get status 

Watt a few microseconds 

Mask CRC and lost data bits 

restore stack 
else done - return 



"disk read error " 

Track 

sector 



mag6: db 'Disk read error. Track/sector - ' .O 



ldtry: 



Id a.(dsktry). 

dec a 

jp z.ermage 

Id (dsktry).a 

call res tor 

Id a.d 

out (dskdta).a 

call dskdly 

Id a. SEEK 

out (dskcmd).a 

call waltdk - 

In a. (dskcmd) 

and OlSh 

Jp ni, ldtry 

pop hi 

push hi 

jp load! 



Try (dsktry) times 



Unload, goto track O. reload, verify 

should sttll be the track No. 

load track to control ler 

wait for It to settle down 

Now gat back on the right track 

wait for controller interrupt 

check status 

CRC or SEEK errors 

try agatn if It falls (5 times max) 

recall start address 1f successful 

save 1 1 for another, retry 



end load 



dak In: 



Interrupt handler for disk reads. 

NOTE: this routine must go FASTI 
WNPUTS :*>*«. contains the start address- to be 
loaded to.) It will be Incremented .each call 
C contains 'the Input port. address. 
:> BwHK be 'decremented each- time. *o 
F l*d -register.. w«l lb*,*, aTTeoted when 



Inl 
nop 



• 1 
retl 



; B becomes O. This. may Interact with calling 

: program. Set B to 'FF' before starting to 

; minimize thin. 

; Input (C) and Inc HL . (16 cycles) 

: (4 cycles) This Is needed temporarily to 

; prevent bad memory read of 'ft' . 

; (4 cycles) 

; (14 cycles) resets PIO without reading It. 



end dlskln 



waitdk: 



push af 
Id a. 16 



waltdkl: 



wa 1 tdk2 : 



dec a 

Jp nz. waltdkl 



Id b.Offh 



In a, (dskcmd) 

and 1 

jp nz.wa1tdk2 

pop af 

ret 



waits till disk Is through with whatever. 

setup 49 microsecond watt, so controller 
status will be valid after command. 

This loop kills 7 microseconds per pass 
at 2 mhz. 3.S at 4 mhz system clock. 

B is decremented (but not tested) in disk 
Interrupt routines (dlskln. slskout). We 
write B to ff to prevent a 'z' condition 
in the flag register In case the Interrupt 
occurs during the "and- operation. We may 
therefore miss the resetting of the 'busy 
status bit for one loop, but no matter. 

now start looking at controller status register 
LSB Is the busy bit 
loop If still busy 



End waitdk 



ccd 1 v : 



ccdlvl , 



Id b.h 

Id c.l 

Ida.d 

xor b 

push af 

Id a.d 

or a 

ca 1 1 m . ccdeneg 

Id a.b 

or a 

call m.ccbcneg 

Id a. 16 

push af 

ex de.hl 

Id de.O 

add hi. hi 

ca 1 1 ccrde I 

Jp z.ccdivj 

cal 1 ccmpbcda 

Jp m,ccd1v2 

Id a.l 

or 1 

Id l.a 

Id a.e 

sub c 

Id e.a 

Id a.d 

sbc a.b 



: Divides OE by HL. returns quotient In HL 
; with remainder 1n DE . (signed divide) 
; from 'runtime Library for Small C Compiler 
:by Ron Cain 



ccdiv2 : 



ccdlvS: 



Id d.a 
pop af 
dec a 

jp Z.ccd1v3 
push af 
jp ccdlvl 

pop af 

ret p 

ca 1 1 ccdeneg 

•x de.hl 

call ccdeneg 

ex de.hl 

ret 



ccdeneg 



ccbcntg . 



Id a.d 
cpl 

Id d.a 
Id a.e 
cpl 

Id e.a 
Inc de 
ret 

Id a.b 
cpl 

Id b.a 
Id a.c 
cpl 

Id c.a 
Inc be 
ret 

Id a.e 
rla 
Id e.a 
Id a.d 
rla 
Id d.a 
or e 
ret 



cempbede: Id a.e 
sub c 
Id a.d 
sbc a.b 
ret 



; negate* the Integer in DE 



negates the Integer In BC 



ccrdel : 



; Rotate DE left one bit 



i compare be to de 



vectab: 



org OaSOOh 
dw keylnr 
dw vcterr 
dw vcterr 
dw. vcterr 
dw vcterr 
dw vcterr 
dw vcterr 
dw curses 
dw vcterr 
dw dskin 
dw dskoi.it 



origin of vector table for Interrupts 

OO > keyboard Interrupt 

02 > tape output - not Implemented yet 

04 DMA controller - not supposed to Interrupt 

06 > tape Input - not Implemented yet. 

OB > CTC channel O - shouldn't Interrupt. 

CTC channel 1 - not defined yet. 

timer channel . 

cursor Interrupt. 
IO > PIO Interrupt - formerly DISK controller 
12 > PIO for disk Input operations. 

Same PIO for disk output operations 






■a;< 



l\ 



Q<~ 



Oa 
Oc 
Oe 



14 > 



vcterr : 



push hi 

Id hi . msgB 

cal 1 pstrng 

pop hi 

• 1 

ret* 



rout In* to handle strange vectors from Interrupts. 
"\nunknown Interrupt vactor\n" 

enable Interrupts 



msg8: db 'Unknown Interrupt vector ' ,nl_,0 
: 

end vectab 



ERROR MESSAGES 

'Wanted disk/Found disk: 



ermsg4: Id hi ,msg4 

call pstrng 

call pthxch 

Id a.c 

call pthxch 

jp wont tor 
msg4: db 'Wanted disk/Found disk: ' .O 



desired disk was in A 
Loaded disk In C 



format: A disk formatting program for 8* 
single density single side disk. 



format : 



nxtrk: 



call 


restor ; 


Id d 


• O ; 


call 


trkfiat j 


call 


cursoff ; 


Id a 


„Ob7h : 


out 


( mscnt 1 ) , a j 


Id a 


.Of eh ; 


out 


( mscnt 1 ) . a ; 


Id a 


,014h « j 


out 


( mscnt 1). a ; 


in a 


, (msclo) ; 


Id c 


,Od3h : 


Id hl.FMTBLK 


Id a 


.Of4h j 


out 


(dskcmd). a ; 


call 


waitdk ; 


call 


curson ; 


In a 


. (dskcmd) ; 


call 


dskdty ; 


and 044h • 


call 


nz . erprnt 5 


Inc d i 


Id a 


• ff : 


cp d 




ret 


Z ; 


Id a 


.OSbh ; 


out 


[dskcmd), a ; 


call 


waitdk 


In a 


.(dskcmd) ; 


call 


dskdly 


and OlOh ; 



sets disk to track 

O will contain the track No. 

generates track format Info 1n memory 

beginning at FMTBLK 

eliminate cursor Interrupts while writing. 

enable PIO Int; 'or'; act. high; mask follows. 



Disable all but Do. 
vector to "dskout* 

one read to clear ready flag 

set C to controller data port 

start of data block for Format routine 

f4 - write track (format) 

waits for controller to be done. 

get status 

wait a few microseconds 

mask lost data or write protect 

If error, print registers 

next track 

last track - 76 



done 

Step In. update register. 



no verify, load 



get status 

wait a little while 

look for "seek error" bit 



Id (hl).0f7h 

Inc hi 

Id b.27 

Id a.Offh 

call bload 

dec c 

Jp nz.sect 

ret 



2 CRC's 



27 ff's 

next sector 

do it again 

•la* dona, return. 



end of sect 



secno returns a sector No. 
and a track no. Jn D. 
INPUT: reverse sequence No. In C (kept) 
track No. In D (kept) 



In A. given a sequence no. in C 



secno: 



push hi 

Id a.d 

and 1 

jp z.even 

Id b.O 

Id hl.oddlst 

add hi. be 

»d a. (hi) 

pop hi 

ret 

Id b.O 

Id ht.evnlat 

add hl.be 

Id a. (hi) 

pop hi 

ret 



track No. 

look at lowest bit 

odd or even? 

If odd. look at odd! 1st 

sequence for odd tracks 

offset by sequence No. 

get that value 

restore 

done 



even track No. 
SO USt even list 
add offset of seq. 
get It. 



No. 



oddlst: 
evnlst : 



2«H , «: 1 5' 7 - 14,6 ' 13 ' B ' 1a ' 4 ' ,1 . 3 .">.2.9.1 
Offh. 11.3. 10.a.9.1.«.1S.7. 14.6. 13.8. 12!4 



end of secno 



b 1 oad : 



£I^ d /i?? d,, . (B) ,oc «*«o»« *«th(A) in memory beginning 
with (hi). Incrementing hi as It goes. bl-O 

id (hi). a 

Inc hi 

dec b 

Jr nz. bload 

ret 

end of bload 

«NOTE: Would prefer to unload head first to clear dust 
etc, but to do so would turn off drive as It Is' 
now configured. This Is a good area for future 
modlf cation. 'UNLOAD' has been defined as a 
SEEK without head load or verify. This can 
be used to unload head In place, by simply 
loading the data register with the contents 



call ni, erprnt ; print rag Is tars 1f arror 
jp nxtrk ; do another track 



*********»»***«*»»**»***»»*»* 



************* 



trkfrat formats I track of disk according to IBM 3740 format 

with 256 bytas/sactor. 

INPUT: rag Is tar d contains track No. 



trkfmt: 



id hl.FMTBLK 
Id b,40 
Id a.Offh 
call bload 
Id b.6 
id a.O 
call bload 
Id (ht).Ofch 
Inc hi 
Id b.26 
Id a.Offh 
call, bload 
Id c. IS 
cal 1 i*ct 
Id b.Offh 
Id a.Offh 
call bload 
rat 



Bag Inning of block storage to kaap track Info 

40 (decimal) bytas to ba loaded 

A - what to load (ff) 

writes 'B' bytes of (A). Incrementing hi 

• 'O's 

fch » index mark 

point to next location 



2« 'ff's 

want to write IB sectors/track 

writes (C) sectors 



write a bunch of ff's till timeout 



end of trkfmt 



?*,£.., Wr i t# " <C) ■• ctor » worth of Info Into memory 
INPUT: C Is no. of sectors to write (destroyed) 
O Is track No. (kept) 



sect : 



Id b.6 

Id a.O 

call bload 

Id (hl).Ofeh 

Inc hi 

Id (hl).d 

Inc hi 

Id (hl).O 

Inc hi 

ca 1 1 secno 

Id (hi). a 

Inc hi 

Id (hi). 1 

Inc hi 

Id (hl).Of7h 

inc hi 

Id b, 11 

Id a.Offh 

call bload 

Id b.6 

Id a.O 

call bload 

Id (hl).Ofbh 

Inc hi 

Id b.O 

Id a.Oe5h 

call bload 



bload writes (B) bytes of (A). 1ncs hi 
ID address mark 

track no. 

side no. (always 0) 

returns a sector no. In A. given C and D 
load sector no. 

sector length (1 -> 256 bytes) 

f7 writes 2 CBC's 



11 ff's 

6 O's 

data address mark 

setup for 296 bytes of e.9 

actual data field loaded w/ eS 



of the track register before issuing. » 



restor : 



push af 

Id a.OSKRST 

out (dskcmd).a 

call dskdly 

Id a, RESTORE 

out (dskcmd),a 

call watt Ok 

In a.(dskcmd) 

call dskdly 

and OlOh 

ca 1 1 na , erprnt 

jp nz, reboot 

Id a.OdOh 

out (dskcnd).a 

call dskdly 

pop af 

ret 



sets disk to track O 

reset the controller 

wait for that to take effect 
restore, load head, verify 
write to command register 
wait for controller to Interrupt 

wait a few Microseconds 
look for 'seek error* bit 
print error If found 
Olve up after printing, 
reset controller 

wait a few microseconds 






dskdly: 



dlyl: 



push af 
Id a, 16 
dec a 
jp nz.dlyl 
pop af 
ret 



*»•*»**♦»****♦**.»»»»+,» 




this is *VV* 



erprnt : 



push af 
cal I pthxch 
Id a.h 
call pthxch 
Id a, I 

call pthxch 
id a. to 
call pthxch 
Id a.c 
cal 1 pthxch 
Id a. d 
call pthxch 
Id a.e 
call pthxch 
1nc sp 
Inc sp 
•x (sp).hl 
Id a.h 
call pthxch 
Id a.l 

call pthxch 
ex <sp),h1 
dec sp 
dec sp 
pop af 
ret 



*•••*••••*• 



prints registers and return address 

preserve a register 

prints contents of A register 

print H and L registers 

print B register 

print C register 

print register 

print C register 

look at return address 

put it (n hi and save hi in stack 

print high toyte of return address 

•nd tow toyte 

restore the return and hi 

restore the STACK POINTER 



;**»**»*♦♦***»»**♦*****»*****«»*»»»« 



con 1 n : 



conlnl i 



nl Ins 



•of 11*: 



Id a.(keyflg) 

or a 

Jr z.conln 

Id a.(kbfptr) 

Inc a 

and kbfsze 

Id (kbfptr).a 

Id c.a 

Id b.O 

Id ht.kbdbuf 

add hi, be 

Id a.(kbwptr) 

cp c 

Jr nx, conlnl 

xor a 

Id (keyflg).a 

Id a. (hi) 

and 07fh 

Id 1 .a 

Id h.O 

cp n1_ 

Jr z.nl In* 

cp O 

Jr z.eoflle 

cp 013h 

Jr z.contn 

cp Ollh 

Jp z.0c003h 

cp OI8h 

Jp z.OcOOOh 

rat 

Id I.Odh 

rat 

Id h.OSOh 
rat 



Roads characters from tha keyboard, 
checks for special characters, 
returns these to the operating system. 
INPUTS: none. 
OUTPUTS: character In HL 

This flag Is set by keytnr 

Loop until something shows up 
Pointer to the last character read 

Increment modulo kbfsze 
reload the pointer 



keyboard buffer starting address 

now HL — > next character in buffer 

see If write ptr - read ptr. 

If so, this is the only character there. 

last character, so clear keyboard flag. 

read character from buffer 

mask parity 

normal return has character In HL 

look for line feed 

NULL? 

end of fUe. 
control -s? 
ignore 1*. 
control -q? 
warm start 
control ->c? 
cold start 
else just return 

translate to carriage return 



translate to SOOOh 



;*»*»»•*****»*«*»+»***» 



end of con In 



conout : 



Id a.1 

cp nl_ 

jp z. conout 1 

call putcrt- 

ret 



conout 1 : 



transmits a character to the crt . 

Actually, it interfaces with 

putcrt. which is a software package 

of considerable size that does the 

work. 

INPUTS: character In i 

OUTPUTS: none. 

gets character into A. 

If newllne. check for restarts. 

writes character In A to CRT. 



call chkio 
id a.n1_ 
call putcrt 
ret 



reload nowl 1ne (destroyed by chkio) 



and conout 

********* ***♦********»*************»*»*«»»***»,«,*,»,„ 



chkio: 



hold: 



holdl: 



Id a.(09fd6h) 

Or a 

ret nz 

Id a.(keyflg) 

or a 

ret z 

Id a.(kbfptr) 

Inc a 

and kbfsze 

Id c,a 

Id b.O 

Id ht.kbdbuf 

add hi, be 

Id a.Cbl) 

and 07f h 

cp Olih 

jp z.OcOOSh 

cp OlSh 

jp Z.OcOOOh 

cp 013h 

jr z.hold 

ret 



Id (keyflg).a 

Id a.c 

Td <kbfptr),a 

Id a.(kayflg) 

op a 

Jr z. holdl 

rat 



Taata for system restarts. 

This variable allows restarts If zero. 

vKist return if not allowed to restart. 
Keyboard flag, "at by keytnr. 

Nothing thara? just return, 
offset to last character read 



; Increment modulo kbfsze 



buffer starting address 
points to new character 
get the character 
mask parity 
warm start 

cold start 

control -s? 

stop output 

else Just return. Note that keyflg is 

still on. so con In will pick up the 

character, kbfptr has also not bean 

updated. This may result In multiple 

cold/warm starts. 



Clear the keyboard flag. 

the incremented buffer pointer 

update kbfptr 

lodk for another keystroke 

Loop till you see one 
; than return without reading character, 
; or incrementing buffer pointer. 



and chkio 

BIOS Jump table. The following block Is relocatable and 
should be loaded at OcOSTh. 



xf rtbl ; 



Jp con In 
Jp conout 
Jp load 
jp save 
jp format 



;*******»»**•*»*•**********•**********»***** 



**•****••*••** 



RAM Daf tnltlons 



addr: 


dw 


Oh 


keyfl 


j: db 


Oh 


kbfpt 


r: db 


Oh 


kbwptr : db 


Oh 


curs* 


dw 


Oh 


blink 


db 


Oh 


cstat 


- db 


Oh 


dakrdy: db 


Oh 


ttmftg: db 


Oh 


strttc: dw 


Oh 


endloc: dw 


Oh 


tnoda 


dw 


Oh 


tempi 


db 


Oh 


dskld 


db 


Oh 


trf Ig 


db 


Oh 


tpbuf 


db 


Oh 


stpf l( 


|: db 


Oh 


kbdbul 


" : ds 


64 


rwf Ig 


db 


O 


crtmot 


1: db 


O 


rowno: 


db 


O 


dsktry 


t: db 






placa to a tor* th* addrass from keyboard 

flag sat whan keyboard 1s d*pr*ss*d 

offset for reads from keyboard buffer 

keyboard entry pointer 

address of cursor 

Blinker status (on - 1, off - o) 

status of cursor (on » 1, off - O) 

disk ready flag 

timer flag 

starting memory location for transfers to IO 

end memory location, or number of blocks fo 10 
I I NODE for disk or tape 
: Just a utility spot 
: the loaded disk Id 
; tape read flag 

; single byte tape buffer 

! danged If I know what that 1st 

i keyboard buffer (64 bytes) 

: disk read/write flag. 

5 Mode of CRT 

; Row address variable, for direct cursor addrass 

; Number of tries to read/write disk (usually S) 



